■••• •••• 

■••• •••• 

•••••••••••••••••• 

•••••••••••••••••a 

•••• •••• 

•••• •••• 

•••• •••• 

•••• •••• 

•••••••••••••••ft* 

•••••••••••••••§•• 

•••• •••• •••• 

• ••• ••*• •••• 

•••ft •••• •••• 

•••••• •••••• 

•■•• ••♦• 

■••• •••• 

•••• •••• 

•••••••••••••••••• 

■••••••••••••••••• 

!••••••••••••••••• 

•••••••••••••••••• 



••••••••••• 

••••••••■• 



•••••••••••••••ft** 

••••••••••••■••••ft 

•••• ••■• 

•••« •••• 



•••• ••••• 

••••• ••••••• 

•••••• ••••••••• 



•••• 

••■• 
•••• 


•••• 
•••• 

•••• 


•••• 
•••• 

•••• 









•••■•••••• 

•••••••• 

•••••• 



••••• 



:••• 
••• 



•••• 

•••« 
••••• 

••••••• 

•••«•••• 

>•••••• 



Licensed Material— Property of IBM 



IBM System/3 
Disk Sort Program 
Logic Manual 

Program Numbers: 

5703 - SM1 Model 6 

5702 -SM1 Model 10 Disk System 

5705 - SM1 Model 12 

5704- SM1 Model 15 



•••• 

•••• 



••••••• 

•••••••• 

••••••• 

••••• 
• ••• 



•••• ••••• 

••••• ••••••• 

•••••• ••••••••• 

■•••••• ••••••••••• 

••••••• ••••••••••• 

•••• •••• •••• 

••■• •••• •••• 

•••• •••♦ •••• 

•••••••••••• •••••• 

•••••••••• ••••• 

•••••••• •••• 

•••••• 

•••••• 

•••••• 

•••••• 

••«• •••• 

•••• •••• 

:::::::::::::::::: 

•••••• 

•••••i 

•••••• 

•••••• 

•••• •••• 

*••••••••••••••••• 

•••••••••••••••••• 

•••• •••• ••§• 

•••• •••• •••• 

•••• •••• •••• 

•*•••• •••• •••••• 

•••••• •••••• 

•••••• ••••+• 

•••••• ••♦••• 

•••• •••• 

•••••••••••••••tie 

••••••••*••••••••• 

•••••••••••••••••« 

•••••••••••••••••• 

•••••••••• 



••••••••••• 



••••••••••• 

•••••••+•• 

•••••••••••••••••a 

•••••••••••••••••ft 

•••••••••••••••••• 

•••••••••••••••••a 

•••• •••• 

•••• •••• 




LY21-0517-6 
File No. S3-33 



•••• 

••••• •••••• 

•••••• •••••• 

••••••• •••••• 

••••••• •••• •••• 

•••• ••••• *••• 

•••• •••••• •••• 

•••• ••••••••••• 

••••••••••••••••••• 

••••••••••• •••••• 

•••••••••• ••§•• 

•••••••• •••• 

•••••• 



Program Product 



Seventh Edition (December 1975) 

This is a major revision of, and obsoletes, LY21-05 17-5, A vertical line in a left 
margin indicates a change to the text or a minor change to an illustration. The 
symbol • by a caption indicates a major change to an illustration. 

This edition applies to version 04, modification 00 of the IBM System/3 Model 15 
Disk Sort (Program Product Number 5704-SM1); it also applies to the IBM 
System/3 Model 6 Disk Sort (Program Product Number 5703-SM1), IBM System/3 
Model 10 Disk System Disk Sort (Program Product Number 5702-SM1), and 
the IBM System/3 Model 12 Disk Sort (Program Product Number 5705-SMl); 
and to all subsequent versions and modifications until otherwise indicated in 
new editions or technical newsletters. 

Changes are continually made to the specifications herein; before using this publi- 
cation in connection with the operation of IBM systems, consult the latest IBM 
System/ 3 Bibliography, GN20-8080, for the editions that are applicable and current- 
Requests for copies of IBM publications should be made to your IBM representa- 
tive or to the IBM branch office serving your locality. 

A form for readers 1 comments is at the back of this publication. If the form has 
been removed, address your comments to IBM Corporation, Publications, 
Department 245, Rochester, Minnesota 55901. 



©International Business Machines Corporation 1971, 1972, 1973, 1974, 1975 



Licensed Materia I -Property of IBM 



Preface 



This program logic manual is designed to satisfy require- 
ments of support personnel responsible for maintenance of 
the IBM System/3 Disk Sort program, whether it is used 
with the IBM System/3 Model 6, the IBM System/3 Model 
8, the IBM System/3 Model 10 Disk System, the IBM 
System/3 Model 12, or the IBM System/3 Model 15. Infor- 
mation in this manual includes general data and logic flow 
of the program and detailed descriptions of the program 
phases, data areas, and object program. 

This manual refers to the 5444 Disk Storage Drive, the 
5445 Disk Storage, and the 3340 Direct Access Storage 
Facility. The disk storage device attached to the system 
determines the meaning of the references. The following 
tables will assist the user in determining the meaning of 
the reference(s): 



For Systems without 3340 Direct Access Storage Facility 



Reference 


Meaning 


5444 
5445 
3340 


5444 Disk Storage Drive 

5445 Disk Storage 
Not applicable 



For Systems with 3340 Direct Access Storage Facility 



Reference 


Meaning 


5444 

5445 
3340 


5444 simulation area on 3340 data 
module 

Main data area on 3340 data module 
Main data area on 3340 data module 



For ease of illustration, many of the examples in this book 
use card-like figures to represent records. This does not 
imply that a card device must be used for input or output 
in these situations. Any of several input/output devices 
might be used, depending on which System/3 model and 
configuration you are using. 

This publication is intended to be a recall mechanism and 
a debugging tool. In debugging, however, this manual best 
serves as a guide to the functional sequence of the instruc- 
tions in the program listing. 



The System/3 Model 8 is supported by System/3 Model 10 
Disk System Control Programming and Program Products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. 



RELATED PUBLICATIONS 

The following IBM System/3 reference manuals are recom- 
mended for additional information: 



Model 6 

• IBM System/3 Disk Sort Reference Manual, SC2 1 -7522. 

• IBM System/3 Model 6 Operation Control Language and 
Disk Utility Programs Reference Manual GC2 1 -75 1 6. 

• IBM System/3 Model 6 Components Reference Manual, 
GA34-0001. 

• IBM System/3 Disk Systems Data Managemen t and 
Input / Output Supervisor Logic Manual, SY21 -05 12. 

• IBM System/ 3 Disk Systems System Control Program 
Logic Manual, SY21-0502. 

Model 8 

• IBM System/ 3 Model 8 Introduction, GC2 1-5114. 

Model 10 Disk System 

• IBM System/3 Disk Sort Reference Manual, SC21 -7522. 

• IBM System/3 Model 10 Disk System Control Program- 
ming R eference Manual, GC2 1 -7 5 1 2 . 

• IBM System/3 Model 1 Components Reference Manual, 
GA21-9103. 

• IBM System/ 3 Disk Systems Data Management and 
Input/Output Supervisor Logic Manual, SY21 -05 12. 

• IBM System/3 Disk Systems System Control Program 
Logic Manual, SY2 1-0502. 



Licensed Materia I -Property of IBM 



Model 12 

The availability date for the following Model 12 manuals 
is not the same as for this manual. Orders sent shortly 
after the edition date of this manual may be considered 
invalid, 

• IBM System/3 Model 12 System Control Program 
Logic Manual, SY2 ] -0046. 

• IBM System/3 Model 12 Introduction, GC2 1-5116, 

• IBM System/ 3 Model 12 System Control Programming 
Reference Manual, GC21-5130. 

• IBM System/3 Model 8, 10, 12, and 15 Components 
Reference Manual GC2 1-9236. 



Model 15 

• IBM System/3 Disk Sort Reference Manual SC2 1-7522. 

• IBM System/3 Model 15 System Control Programming 
Reference Manual, GC2 1-5077. 

• IBM System/3 Model 15 Components Reference Manual, 
GA21-9193. 

• IBM System/ 3 Model 15 Supervisor and IOS Logic 
Manual, SY21-0033. 

• IBM System/ 3 Model 15 Data Management Logic 
Manual, SY21-0034. 

• IBM System/ 3 Model 15 Scheduler Logic Manual, 

SY2I-0035. 
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Program Logic Manuals 

Program logic manuals are also referenced in this manual. 
In the flowcharts, these references are made indirectly by 
using function/module names in library blocks (see Appen- 
dix B. Flowcharting Techniques for an example). The 
following chart shows which program logic manual to refer 
to for a discussion of each function/module name used in 
the flowcharts: 



Modal 6 and Model 1 Disk System 


Function/Module Name 


CLOSE 


OPEN 


DM 


IOS 


SUPV 


SYSLOG 


EOJ 


IBM System /3 Disk Systems Data 
Management and Input/Output 
Supervisor Logic Manual, SY21 - 
0512. 

IBM System/3 Disk Systems 
System Control Program Logic 
Manual, SY21-0502. 


X 

X 
X 


X 

X 
X 


X 

X 
X 


X 

X 

X 


X 
X 

X 


X 

X 
X 


X 

X 
X 




Model 15 


IBM System/3 Model 15 Super- 
visor and /OS Logic Manual, 
SY21-0033. 

IBM System /3 Model 15 Data 
Management Logic Manual, 
SY21-0034. 

IBM System/3 Model 15 Scheduler 
Logic Manual, SY21 -0035. 


Mode) 12 


IBM System/3 Model 12 System 
Control Program Logic Manual. 



Note: The IBM System /3 Model 15 System Data Areas and Diagnostic Aids Handbook, SY2 1 -0032, contains 
all system data area formats. 
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HOW THIS PUBLICATION IS ORGANIZED 



This publication is divided into eight sections: 

1. Introduction contains general information about the functions and characteristics 
of the program. 

2. Method of Operation describes the data flow and logic flow of the program in 
general terms. 

3. Program Organization describes the organization of each phase and routine using 
narrative, flowcharts, and diagrams. Flowcharts are designed to provide easy 
reference to the program listings. 

4. Directory contains information needed for quick reference to the program 
listings. 

5. Data Area Formats describes the significant data areas used by the programs. 

6. Object Program describes the Select/Build routine and the generated code which 
makes up the routine. 

7. Appendix A discusses the diagnostic aids built into the program. 

8. Appendix B discusses the flowcharting techniques used. 
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Section 1. Introduction 



The System/3 Disk Sort programs are disk resident programs 
designed to sort records from a disk or tape file (or from 
card or 3741 Files on Model 15). These programs are 
capable of performing either an ADDROUT sort or a tag- 
along sort. The output of an ADDROUT sort is an output 
file (ADDROUT file) containing 3-byte binary relative 
record numbers (zero indicates the first record in the file) 
of the input records. The output of a tag-along sort is 
sorted output records. These output records may contain 
all the information in the input records or only selected 
fields from the input records. 

In addition to creating the output file, Disk Sort produces 
a report on the logging device if requested of the sort speci- 
fications. This report consists of a listing of all the source 
specification statements and diagnostic and status messages. 
Input to Disk Sort consists of OCL statements, the sort 
specification statements, and the disk or tape input file. 



SYSTEM REQUIREMENTS 

The minimum system configuration for Disk Sort is: 

• A System/3 processing unit 

• A disk storage drive 

• A system input device 

• A system output device 



PROGRAM STRUCTURE 

Disk Sort can be divided into two major groups of phases: 
generation phases and execution phases. A brief discussion 
of each group follows. 

Generation Phases 

The Disk Sort generation phases perform these functions: 

• Set variables in COMMON to reflect whether 5444, 
5445, or tape data management is required (or from 
card or 3741 files on Model 15). 

• Read the sort specification statements. 

• Print a source listing with diagnostics if requested. 

• Generate the Select/Build routine which determines if 
an input record is to be included in the sort and if a 
work record is to be built. 

• Design the sort. 

• Allocate work file automatically, if work file statement 
is omitted. 

• Handle error conditions. 
Execution Phases 

The Disk Sort execution phases perform these functions: 

• Select the input records to be included in the sort using 
the Select/Build routine generated by the generation 
phases. 

• Build a work record for each of the input records to be 
included using the Select/Build routine. 

• Sort work records into strings on a work file. 

• Merge strings in ascending or descending sequence. 

• Place the sorted work records on the output file. 
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Section 2. Method of Operation 



This section describes the general functional flow of logic 
and data through the generation phases and the execution 
phases of Disk Sort. Diagrams illustrate the flow of logic 
and data. 



COMMON COMMUNICATION REGION (MODEL 6 AND 
MODEL 10 DISK SYSTEM) AND COMMON COMMUNI- 
CATION AREA (MODEL 12 AND MODEL 15) 

The first 256 bytes of storage allocated to Disk Sort con- 
tain the common communication region (COMMON) for 
Model 6 and Model 10 Disk System or the common com- 
munication area (COMMON) for Model 12 and Model 15. 
COMMON contains information used by both the genera- 
tion and the execution phases of Disk Sort. See Section 5. 
Data Area Formats for a complete description of the format 
and contents of COMMON. 



EXECUTION PHASES 

The execution portion of Disk Sort is entered upon suc- 
cessful completion of the generation phases. Disk Sort 
execution consists of two major sections: 

1 . Execution phases 

2. Select/Build routine 

The execution phases read records, merge and sort selected 
records, and place the sorted records on the output file. 
The Select/Build routine is used by Phase 1 A, IB, or IX 
to determine if a record read from the input file should 
be included or omitted for the sort and to build the work 
record if the record is included. For a detailed description 
of the Select/Build routine, see Section 6. Object Program 
(Select/Build Routine). 



GENERATION PHASES 

Figure 2-1 shows the overall data and logic flow through the 
generation portion of Disk Sort.. For a more detailed 
description of the generation phases and routines, see 
Section 3. Program Organization. 



Figure 2-2 shows the overall data and logic flow through 
the execution portion of Disk Sort. For a more detailed 
description of the execution phases and routines, see 
Section 3. Program Organization. 

Although more than one symbol for an input or work file is 
shown in the overall data and logic flowchart (Figure 2-2), 
there is actually only one of either of these files for a Model 
6 or a Model 10. A Model 12 or Model 15 user can have 
multiple input files. More than one file of a type is shown 
to indicate the interaction which takes place. 
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Figure 2-1 (Part 1 of 2). Logic and Data Flow for Sort Generation Phases 



2-2 



Licensed Material-Property of IBM 



Legend: 



►- Logic Flow 



■►- Data Flow 



Note: Since COMMON is used 
by all phases, it is not shown on 
this diagram. 
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Figure 2-1 (Part 2 of 2). Logic and Data Flow for Sort Generation Phases 
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Section 3. Program Organization 



This section provides a detailed description of each phase 
and routine used in the Disk Sort program. A symbolic 
label used to identify the phase or routine follows each 
descriptive phase name. Symbolic labels preceded by 
an "O." indicate a load module. A load module is the 
phase and/or routines which are loaded into storage as a 
single unit. The storage maps of the phases indicate the 
contents of the load module. 

Data management routines used are listed but are not dis- 
cussed in this publication. Refer to: 

1 . IBM System I 3 Disk Systems Data Managemen t and 
Input /Output Supervisor Logic Manual, SY2 1-0512, 
for Model 6 and Model 10 Disk System 

2. IBM System/3 Model 12 System Control Program 
Logic Manual, for Model 12 

3 . IBM System/3 Model 15 Data Management Logic 
Manual SY2 1-0034, for Model 15 

The SYSIN routine mentioned in the phase descriptions 
is either the system SYSIN routine, the Scheduler Work 
Area Get routine, or the Source Library Get routine. SDSAB 
(Locate Control Statements routine) selects the routine to 
use. The address of the selected routine is placed in SYSIN@ 
in COMMON. 

Since all phases and most routines use COMMON, 
references or changes to COMMON are not discussed in 
this section. See Section 5, Data Area Formats for 
information on COMMON. 



GENERATION PHASES 



Mainline Routine ($DSAA) 

ENTRY: From Scheduler 
STORAGE MAP: Figure 3-1 
FUNCTION: 

- Records program usage information in COMMON. 

- Sets on Rollout bit of NPEOJ in the program com- 
munication region (Model 6, Model 10 Disk System 
and Mode] 1 2) or the program communication area 
(Model 15) in the Supervisor. 

- Allocates available storage for th& Disk Sort program 
if the dual programming feature was specified and 
Disk Sort was loaded in program level 1 (Model 10 
Disk System and Mode] 12). 

- Checks for work file statement (SDSAF). 

- Loads the address of COMMON in XR1 where it 
remains for most of the sort. 

-- Determines if the statement read by SDSAB is a 
header statement and, if it is, moves the print option 
entry to COMMON (PRTOPN). 

- Determines the type of sort specified on the header 
statement (SORTA; SORTR, or SORTRS) and 
sets a bit (ATTRQ1) in COMMON. 

- Sets a bit in COMMON (ENVQ2) if DEBUG was 
specified in positions 20-24 of the header statement 
so that COMMON is dumped after Phases 0A, 0B, 
0D, and all passes. 

- Initializes the phase load address in COMMON 
(PHASE@). 

INPUT: Header statement 
OUTPUT: 

- Printed program title and heading lines. 

- Printed listing of the header statement. 

- Printed error messages if errors were detected. 

- Address of COMMON in XR1. 
ROUTINES USED: SDSAB, SDSAF 
EXIT: O.SDSBA 



Phase 0A (0.$DSORT) 

Phase 0A is divided into three routines: 

1 . Mainline routine ($DSAA) 

2. Locate Control Statements routine (SDSAB) 

3. Check for Work File Statement routine (SDSAF) 
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Locate Control Statements Routine ($OSAB) 



Check for Work File Statement Routine ($DSAF) 



ENTRY: From SDSAA 
STORAGE MAP: Figure 3-1 
FUNCTION: 

- Determines where the sort specification statements 
are. If the statements are in the system SYSIN 
device, O.SDS9I is loaded; if the statements are in 
the Scheduler Work Area, O.SDS9W is loaded; 

if the first statement was a //SOURCE statement, 
O.SDS9S is loaded. 

- Issues a programmed halt if the source member 
name cannot be found. 

- Determines the length of the loaded module and 
places the value in SYSJNL in COMMON; sets 
SYSIN entry point in SYSIN@ in COMMON. 

- Reads first sequence specifications statement. 
INPUT: 

- Address of COMMON in XR1. 

- Source statement. 

- Access to NPSCH2 in the program level communica- 
tion area to determine where the source statements 
are. 

OUTPUT: 

- Header statement (if it is read). 

- Halt display Q2V on Model 10 Disk System, Model 
12, and Model 15; 'CD235' on Model 6) if source 
member name was not found. 

ROUTINES USED: O.SDS91 , 0.5DS9W, O.SDS9S 
EXIT: SDSAA 



ENTRY: From SDSAA 
STORAGE MAP: Figure 3-1 

FUNCTION: 

- Sets scheduler interlock on for the program level 
(Model 10 Disk System and Model 12) or enqueue 
scheduler interlock for the partition (Model 15) Disk 
Sort is using. 

- Reads in all format 1 records in the scheduler work 
area for Disk Sort to determine if there is a work 
file statement. 

- Sets off deferred mount bit in each format I 
record (Fl ATT, bit 2) so that automatic work 
file allocation requests a mount if the output 
is not online. 

- Writes the format 1 's back to the scheduler work 
area. 

- Determines if the input file is online (not on Model 
15); if it is not, SDSAF prints a message and passes 
control to O.SDSGA. 

- Sets bits on in FILE1 in COMMON to represent 
device type for the input, work, and output files. 

- Sets bits on in DATA1 in COMMON to indicate if the 
5445 Disk Sort feature (Model 10 Disk System only) 
is available, and provides 7-track tape information. 

- Sets bits on in DATA2 (Model 10 Disk System) or 
ENVQ1 (Model 12 and Mode! 15) in COMMON if 
5445 disks are available for automatic work file 
allocation. 
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- Sets the following indicators in COMMON: 
ENVQ2 if there is a work file statement; ENVQ3 

if Rl, R2, or F2 is not available for work space and 
if output is on a lower drive; ATTRQ1 if the output 
is a deferred mount. 

- Builds the Device Table (Model 12 and Model 15) 
INPUT: 

- The original format Vs for Disk Sort. 

- Address of COMMON in XR1. 

- Address of system communication region (Model 6, 
Model 10 Disk System and Model 12) or system 
communication area (Model 15). 

OUTPUT: 

- Updated format l's for Disk Sort. 

- ATTRQl,ENVQ2,FlLEl,DATAl J ENVQ3,an<i 
DATA2 (Model 6 and Model 10 Disk System) or 
ENVQ1 (Model 12 and Model 15). 

- Message SD105 if input file is not online (not on 
Model 15). 

- Message SD1 06 if the work file is on tape. 
ROUTINES USED: Scheduler Work Area Read/Write 

routine 
EXIT: Phase JDSAA 



Phase 0B <0.$DSBA) 

ENTRY: From CUDSORT 
STORAGE MAP: Figure 3-2 
FUNCTION: 

- Checks for control field length; if not specified, 
control is passed to O.SDSGA. 

- Checks for an invalid number in the control 
field portion of the header statement (SDSZB); 
if found, control is passed to 0.5DSGA. 

- Determines input record length (by using a dummy 
open of the input file); if indeterminable, control 
is passed to 0.$DSGA. 

- Allocates the input file. 

- Dummy opens the input file if it is a tape file. 

- Allocates the output file if it is a tape file. 

- Determines if an ascending or descending sort has 
been specified. If no sequence has been specified, 
the program defaults to an ascending sort. 



O.SDSORT 



Supervisor 



COMMON 



Read Statement from SYSIN 
Reader Routine (0.$DS9I| or 
Read Statement from 
Scheduler Work Area Routine 
(0.$DS9WJ* or Read from 
Source Member ($DS9S) 



Mainline Routine ($DSAA| 



Locate Control Statements 
Routine ($DSAB) 



Check for Work File State- 
ment Routine ($DSAF) 



Dynamic Dump Loader {0.$DS$E) 
if dump specified 



Unused 



Overlay 



'This area in storage is blank 
until $DSAB determines which 
routine to load. 



Print COMMON — Dynamic Request 
|$DS$A) if enough room in storage 



BITOHEX Routine ($DS2E) 



BITOBIT Routine {$DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



Q.$DS$A 



Figure 3-1. Storage Map for Phase (?A 
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ForaSORTAjob; 

1 . Sets the work record length equal to the key 
length plus 3 (WRECL in COMMON). 

2 . Sets the output record length (ORECLH 
in COMMON) to 3 (output tag only). 

3. Sets a bit in COMMON (ATTRQ2) to indicate 
that the key is to be dropped for this sort. 

4. Ensures that output record length for tape is the 
same on both sort header and output file state- 
ments. 

5. Issues a terminal error if ASCII translate has been 
specified for an ADDROUT output file on tape. 

6. Issues a terminal error if 7-track tape is output. 

For a SORTR or SORTRS job: 

1 . Sets the output record length (ORECLH 
in COMMON) equal to the length specified 
on the header statement. 

2. Checks for invalid number in output record 
length; if found, control is passed to 
O.SDSGA. 



O.SDSBA 



Supervisor 



COMMON 



Read Statement from SYSIN 
Reader Routine (0.$DS9I) or 
Read Statement from 
Scheduler Work Area Routine 
IO.$DS9WorO.$DS9S) 



Device Table i Model 12 and Model 15) 



Phase 0B ($DSBA) 



Decimal to Hex Conversion 
Routine ($DSZB) 



Divide Routine 
($DSZD) . 



Multiply Routine 
ISDSZM) 



Dynamic Dump Loader {O. $DS$E) 
if dump specified 



Unused 



Alternate Collating Sequence 
Table Routine (O. $DSBC) if 
alternate collating sequence 
specified x >. 
— ■ "i ■ 



* 



3. Initially sets the work record length (WRECL 
in COMMON) equal to the output record 
length (ORECLH). 

4. Sets WRECL equal to the initial value of 
work record length plus the key length 
(KEY + 1) if the output control field is to be 
dropped. 

5. Issues a terminal error if header and tape output 
record length are not the same. 

6. Issues a terminal error if 7-track tape files 
(input and/or output) were specified, and 
converter or translator was not specified. 

- Determines the block length, record length, and 
fixed block length for the input and output tape 
file. 

- Determines if ASCII is to be used for input and 
output tape file. 

- If tape is used, checks the fields in the input and 
output DTFs to ensure their agreement. 

- Allocates, opens, and closes the work file if a work 
file statement is supplied. 

- Builds the table of work file extents in COMMON 
(MVFTBL) for the work file. 

- Loads and calls O.SDSBC if an alternate collating 
sequence was specified. 

- Sets the alternate collating sequence length field 
(ALTSEQ in COMMON) to zero if no alternate 
collating is desired. 

- Reads the statement following the header statement. 

1 . If an alternate collating sequence was not 
specified, the address of the SYSIN routine 
is obtained (SYSIN@ in COMMON) and a 
branch is taken to the SYSIN routine 
(O.SDS9I, O.SDS9W, or O.SDS9S). 

2. If an alternate collating sequence was 
specified, O.SDSBC reads in the statement 
following the last alternate collating sequence 
statement (that is, **). 

- Computes the Select/Build routine address \ 

(BUILD@) and the input record address (IREC@) if 

"** no terminal errors are encountered. 
Overlay *** mmmmm 



Print COMMON - - Dynamic Request 
($DS$A) if enough room in storage 



B1TOHEX Routine ($DSZEl 



BITOBIT Routine l$DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



Q.$DS$A 



Figure 3-2. Storage Map for Phase 0B 
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INPUT: 

- Address of COMMON in XRl . 

- Header statement. 
OUTPUT: 

- Printed error messages if errors were detected. 

- Printed listing of alternate collating sequence 
statements. 

- Table of work file extents (see Section 5. Data Area 
Formats for a table description). 

- Bits in COMMON (FILE2) set to designate use of 
ASCII files. 

ROUTINES USED: O.SDSBC, SDSBC, O.SDS9I, O.SDS9W, 

O.SDS9S, $DSZB, SDSZM, $DSZD 
EXIT: O.SDSCA 



Phase OC (Select/Build Routine Compiler) 

Phase 0C has three main parts (Figure 3-3), each being a 
Disk Sort load module. The three parts are: 

1 . Compile the Select/Build Routine (O.SDSCA) 

2. Error Print (O.SDSCB) 

3. Move Generation Code (O.SDSCC) 

Compile the Select/Build Routine <0.$DSCA) 

This part of Phase 0C has nine routines: 

1 . Initialization routine ($DSCA1) 

2. Mainline routine ($DSCA2) 

3 . Code Segment Move routine (SDSC A5) 

4. Determine Zone routine ($DSCA6) 

5. Error Table Build routine (SDSCA8) 

6. Include/Omit Generator routine ($DSCE) 

7. Field Generator routine ($DSCF) 

8. Calculate Length Module routine (SDSCL) 

9. End of File for Compiler routine (SDSCZ) 

Figure 3-4 shows a general overview of these routines. 
For a more detailed discussion of the code generated by 
the Select/Build Routine compiler, see Section 6. Object 
Program (Select/Build Routine). 



Initialization Routine <$DSCA1 ) 

ENTRY: From O.SDSBA 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Assures that the statement in the SYSIN area is a 
non-comment statement (and a non-data statement 
or non-summary data if SORT A is specified). The 
statement, whose address is in CARD® in COMMON, 
is the first next statement used by $DSCA2. 

- Prints all bypassed comments or data statements 
(SORT A only) if the print option entry is blank or 0. 

- Initializes the COMMON fields used by Phase 0C 
(see COMMON in Section 5. Data Area Formats). 

- Determines and sets up the linkage for O.SDSCE, 
O.SDSCF, O.SDSCL, and O.SDSCZ. 

INPUT: 

- Sequence specification statement image in the input 
area in the SYSIN routine (CARD© in COMMON 
contains its address). 

- Address of the SYSIN routine (O.SDS9I, O.SDS9S, 
or O.SDS9W). 

- Address of COMMON in XR 1 . 
OUTPUT: 

- Printed listing of all statements and the first non- 
comment statement. 

- Non-comment statement in the read-in area of the 
SYSIN routine. 

ROUTINES USED: O.SDS9I, O.SDS9W, O.SDS9S 
EXIT: $DSCA2 

Mainline Routine ($DSCA2) 

ENTRY: From SDSC A 1 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Fills in the final INO branch when the old next 
statement is an end-of-file statement. .SDSCZ is 
then loaded and called. 

- Moves the next statement, whose address is in 
CARD® in COMMON, to the 39-byte area (CARD) 
in COMMON. This statement is now the new 
current statement. 

- Prints the current statement if the print option entry 
is0. 

- Reads and prints statements until a non-comment 
statement is found (including end-of-file). This 
non-comment statement becomes the new next 
statement. 

- Checks for valid combinations of positions 6-8 to 
determine if the statement is a valid record type or 
field specification; if invalid, control is passed to 
SDSCA8. 

- Calls O.SDSCL unless current statement is an 
implicit include -all. 

- Determines if the specification statement is an 
include/omit and, if it is, calls O.SDSCE. 
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INPUT: 

- Sequence specification statement image in the read- 
in area of the SYSIN routine. 

- Permanent address of the Select/Build routine. 

- Address of the SYSIN routine (O.SDS9I, O.SDS9S, 
or O.SDS9W). 

- Address of COMMON in XR I . 
OUTPUT: 

- Generated code in the Select/Build routine unless 
the error table begins to overlay the Select/ 
Build routine. If this occurs, the job is canceled 
in Phase 0G. 

- Printed listing of the source specification statements. 

- Error table (see Section 5. Data Area Formats). 

- Length of the Select/Build routine. 

- Length and number of summary table entries 
(SORTRS). 

ROUTINES USED: O.SDSCE, O.SDSCF, O.SDSCL, 

O.SDS9I, O.SDS9S, O.SDS9W 
EXIT: O.SDSCZ 



Code Segment Move Routine ($DSCA5) 

ENTRY: From SDSCA2, O.SDSCE, or O.SDSCF 

STORAGE MAP: Figure 3-3 

FUNCTION: 

- Moves code generated in O.SDSCE and O.SDSCF 
to the generated code area. 

- Maintains the location counters for the generated 
code and the temporary select/build area. 

- Moves the constants generated in SDSCA9 to the 
generated code area. 

- Determines if there is enough storage available 
for code to be generated; if not, bit 7 of ATTRQ3 
is set in COMMON. 

INPUT: 

- Address of the length of the code to be moved. 

- Address of the displacement of the code in the 
constant area. 

- Address of COMMON in XR1 . 



OUTPUT: 

- Generated code moved to the current place in 
the temporary select/build area. 

- Updated location counters for the length of the 
code moved and for the temporary and permanent 
select/build area. 

- Updated error table. 
ROUTINES USED: SDSCA8 

EXIT: The next sequential instruction + 2 of SDSCA2, 
O.SDSCE, or O.SDSCF 



Determine Zone Routine ($DSCA6) 

ENTRY: From O.SDSCE or O.SDSCF 

STORAGE MAP: Figure 3-3 

FUNCTION : Determines the zone of a given byte by 

testing the zone portion of that byte. 
INPUT: 

- Byte in CARD@ + 19 in COMMON. 

- Address of COMMON in XR1. 

OUTPUT: Generated code (code segment 2). 

ROUTINES USED: None 

EXIT: 

— Next sequential instruction of O.SDSCE or 
O.SDSCF if the entire code segment is not needed. 

— Next sequential instruction + 3 of O.SDSCE or 
O.SDSCF if the entire code segment is needed. 



Error Table Build Routine ($DSCA8) 

ENTRY: From SDSCAZ, O.SDSCE, O.SDSCF, SDSCA5, 

SDSCA7, or SDSCA9 
STORAGE MAP: Figure 3-3 
FUNCTION: 

— Builds the error table starting with the highest availa- 
ble program level (partition) address. 

— Checks error table; if full, control is passed to 
O.SDSCZ. 

INPUT: 

— ARR containing the address of a DC with a 1-byte 
err ot number in it. 

— Address of COMMON in XR1 . 

— Error table. 

OUTPUT: Updated pointer to the next available space 

in the error table. 
ROUTINES USED: None 
EXIT: The next sequential instruction + 1 of SDSCA2, 

O.SDSCE, O.SDSCF, SDSCA5, SDSCA7, or 

SDSCA9 
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Include/Omit Generator Routine <0.$DSCE) 



Calculate Length Mainline Routine ($DSCA9) 



ENTRY: From $DSCA2 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Diagnoses the specification statements to determine 
if they are invalid include or omit statements; if not 
invalid, control is passed to SDSCA8. 

- Generates code segments from the information on 
the include/omit statements. 

INPUT: 

- Next sequence specification statement in the read- 
in area of the SYS1N routine. 

- First 39 bytes of the current statement in the work 
area in COMMON. 

- Address of COMMON in XR 1 . 
OUTPUT: 

- Generated code. 

- Updated error table. 

ROUTINES USED: SDSCA5, SDSCA6, $DSCA8 
EXIT: SDSCA2 

Field Generator Routine (O.SDSCF) 

ENTRY: From $DSCA2 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Builds summary table entry for summary data 
field. 

- Generates code segments from the information 
on the field statements (SDSCA5, SDSCA6). 

- Builds code to move the three -byte binary relative 
record number behind the control word for SORTA 
jobs. 

- Passes control to SDSCA8 if field statement errors 
are found. 

INPUT: 

- Next sequence specification statement in the read- 
in area of the SYSIN routine. 

- First 39 bytes of the current statement in the work 
area in COMMON. 

- Address of COMMON in XR1. 
OUTPUT: 

- Generated code. 

- Updated error table. 

- Summary table. 

ROUTINES USED: SDSCA5, $DSCA6, SDSCA8 
EXIT: SDSCA2 



Calculate Length Module (O.SDSCL) 

This routine is divided into two routines: 

1 . Calculate Length Mainline routine ($DSC A9) 

2. Decimal to Binary Convert routine (SDSCA7) 



ENTRY: From O.SDSCA2 
FUNCTION: 

- Moves the From field (positions 9-12) of Factor 1 
and the To and From fields (positions 20-27) of 
Factor 2, if present, to the To field of Factor 1 
(positions 13-16). SDSCA7 is then called. 

- if the 39-byte work area contains an include or 
omit statement: 

1. Factor 1 data is used to calculate the read 
area displacement and the length of the field. 

2. The displacement and length of Factor 2 is 
calculated if Factor 2 is not a constant. 

3. If Factor 2 is a constant, the following occurs: 

a. The constant is translated if alternate 
collating sequence is requested. 

b. A jump instruction is moved to the 
code area. 

c. The zones of the constant are set to 
Fs if D (digit) is specified in column 8. 

d. Work area displacement is calculated. 

- If the 39-byte work area contains a field statement: 

1 . The read area displacement and the field 
length are calculated using the location field 
(to field, positions 13-16) data. 

2. The control word area displacements 
calculated previously are set up to be used by 
the generating routines if the statement being 
used is a continued force statement. 

3. The control word area displacement is 
calculated and set up for the generating 
routines if the statement being processed is 
not a continued force statement. 

4. Inline code is generated to increment the base 
register for control word and data statement 
building. 

INPUT: 

- 39-byte work area in COMMON (positions 1-32 of 
the current statement). 

- Address of COMMON in XR1. 
OUTPUT: 

- Calculated length and displacement of Factor 1 . 

- Calculated length and displacement of Factor 2 if it 
is not a constant. 

- Calculated length and displacement of the field 
statement specification. 

- Updated pointer to the next field in the control 
statement. 

EXIT: 

- $DSCA2 if no errors occurred. 

- 0.$DSCB from SDSCA8 if the error table 
completely fills the select/build area. 

ROUTINES USED: SDSCA5, $DSCA7, $DSCA8, 
O.SDSBC 
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Decimal to Binary Convert Routine ($DSCA7) 



Error Print (0.$DSCB) 



ENTRY: From $DSCA9 
FUNCTION: 

- Converts the To field (positions 13-16) of Factor 1. 

- Determines if value being converted is larger than 
input record size. 

- Converts the new cumulative length (positions 
20-22 of the SORTRS field specifications) to binary, 

INPUT: 

- Decimal numbers in the 39-byte work area. 

- Address of COMMON in XR1 . 
OUTPUT: Hexadecimal equivalent of the decimal 

number. 
ROUTINES USED: SDSCA8, SDSZB 
EXIT: 

- SDSCA9 if no errors occurred. 

- O.SDSCB from SDSCA8 if the error table 
completely fills the select/build area. 



End of Fife for Compiler Routine (0.$DSCZ) 

ENTRY: From $DSCA2 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Finalizes Select/Build code. 

- Updates phase load address in COMMON 
(PHASE©). 

- Moves the summary table to Phase I location behind 
COMMON. 

- Checks for errors; if errors found, control is passed 
to $DSCA8. 

INPUT: 

- Select/Build code. 

- Address of COMMON in XR1. 
OUTPUT: 

- Finalized Select/Build code. 

- Summary table moved to Phase I location behind 
COMMON. 

- Updated phase load address in COMMON 
(PHASE®). 

ROUTINES USED: None 
EXIT: O.SDSCB 



ENTRY: From $DSCZ 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Checks the print option entry in COMMON 
(PRTOPN) to determine if printing is to be done. 

- Prints error messages based on the error table 
generated in Phase 0C. 

- Sets error indicators in COMMON (WRNERQ, 
SEVERQ,TMLERQ). 

- Counts the number of errors and places the updated 
count in COMMON (WRNERQ SEVER*", 
TMLER#). 

- Determines if any terminal errors were diagnosed 
from Phase 0C; if they were, control is passed to 
O.SDSGA. 

INPUT: 

- Address of the error table in COMMON (BEGER1). 

- Address of the next error table entry in COMMON 
(SEVER 1). 

- Address of COMMON in XR1. 
OUTPUT: 

- Printed error messages on the SYSLOG device. 

- Updated phase load address in COMMON 
(PHASE®). 

ROUTINES USED: None 
EXIT: O.SDSCC 



Move Generation Code (O.SDSCC) 

ENTRY: From O.SDSCB 
STORAGE MAP: Figure 3-3 
FUNCTION: 

- Moves the code generated by O.SDSCA, O.SDSCE, 
and O.SDSCF to its final position in storage, 

- Moves the fixed code in front of the generated code, 

- Moves the fixed code for the Pack-Include/Omit 
and Pack-Field routines to the end of the Select/ 
Build routine when they are needed. 

- Moves the summary table behind Select/Build 
routine if summary sort is used. 

INPUT : Address of COMMON in XR 1 . 
OUTPUT: 

- Select/Build routine in final location. 

- Summary table behind Select/Build routine (when 
summary sort used). 

- Device Table behind Select/Build routine or behind 
Summary Table if summary sort is used (Model 12 
and Model 15). 

- Updated phase load address in COMMON (PHASE®). 
ROUTINES USED: None 

EXIT: O.SDSDA 
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Figure 3-3. Storage Map for Phase OC 
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Figure 3-4 (Part 1 of 2). Logic and Data Flow for Phase 0C 
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Figure 3-4 (Part 2 of 2). Logic and Data Flow for Phase 0C 
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Phase 0D - Part A (O.SDSDA) 



Phase 0D - Part B <0.$DSDB) 



ENTRY: From O.SDSCC 
STORAGE MAP: Figure 3-5 
FUNCTION: 

- Computes the active program lengths of Phases 1 A, 
IB, lX,2A,3A,and3S. 

- Determines if 5445 Disk Storage has been referenced 
but is not an available feature; if the feature is not 
available, control is passed to 0.$DSGA (Model 10 
Disk System). 

- Determines the load point for Phase I Data Manage- 
ment (DMLD@) for Model 12 and Model 15. 

- Determines maximum number of sectors needed for 
Phase I Data Management (DMLNG) for Model 12 
and Model 15. 

- Determines address of the Phase I DTF area (INDTF@) 
for Model 12 and Model 15. 

INPUT: 

- Address of COMMON in XR1 . 

- Active program lengths of execution modules in the 
load module library. 

OUTPUT: The active program lengths of each execution 

phase (except O.SDS1Z and O.SDS4A). 
ROUTINES USED: None 
EXIT: O.SDSDB 



PartB 



ENTRY: From O.SDSDA 
STORAGE MAP: Figure 3-5 
FUNCTION: 

- Determines order of merge used in Phase II (OM in 
COMMON). 

- Determines work block length (WBLKL). 

- Determines work buffer length (WBUFL). 

- Determines work blocking factor (WBF). 

- Determines type of internal sort (ISTYPE in 
COMMON) to be used (Phase IA, 1B 3 or IX). 

- Determines input buffer length (IBUFL). 

- Determines number of records in the internal sort 
area (ISA). 

- Determines internal sort area length (ISL). 

- Determines order of merge for Phase III (OM in 
COMMON). 

- Determines number of output buffers (OBUF#). 

- Determines output block length (OBLKL). 

- Determines output buffer length (OBUFL). 

- Checks for terminal error in design of sort; if 
found, control is passed to O.SDSGA. 



Part A 



0.$DSDB 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table (optional) 



Device Table {Model 12 and Model 15) 



Design Sort ($DSDB) 



Compute Sort Area <$DSDC) 



Multiply Routine ($DSZM) 



Divide Routine ($DSZD) 



Dynamic Dump Loader 
IO.$DS$E) ifdump 
specified 



Unused 



Alternate Collating Sequence 
Table Routine (O.SDSBC) if 
alternate collating sequence 
specified S 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table (optional) 



Device Table (Model 12 and Model 15) 



Phase 0D (O.SDSDA) 



Unused 



Alternate Collating Sequence 
Table Routine (0.$DSBC) if 
alternate collating sequence 
specified 



Overlay 



Figure 3-5. Storage Map for Phase 0D 



Print COMMON - Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine ($DSZE) 



BITOBIT Routine ($DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



Q.$DS$A 
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INPUT: 

- Active lengths of Phases 1 A, IB, IX, 2 A, 3 A, and 3S. 

- Address of COMMON in XR1 . 
OUTPUT: 

- Order of merge for Phase II. 

- Sort type. 

- Order of merge for Phase III. 
ROUTINES USED: $DSZD,$DSZM 
EXIT: O.SDSEA 



Phase 0E |0.$DSEA) 

ENTRY: FromO.SDSDA 
STORAGE MAP: Figure 3-6 
FUNCTION: 

- Allocates output file if not a deferred mount file. 

- Calls automatic allocate (SDSEG) if work file 
statement omitted. 

- Converts number of sectors per entry in table of 
work file extents to number of blocks per extent. 

- Determines if terminal error was found by $DSEG; 
if error was found, control is passed to O.SDSGA. 

- Sorts out any extent in MVFTBL not large enough 
to hold at least one work block. 



INPUT: 

- Work file statement indicator (ENVQ2). 

- Output deferred mount indicator (ATTRQ1). 
OUTPUT: 

- Allocated output file if the file is not a deferred 
mount. 

- Automatically allocated work file if there was no 
work file statement. 

- Error indicator (TMLERQ) on if no work space 
available. 

- Updated table of work file extents. 
ROUTINES USED: $DSEG 

EXIT: O.SDSGA 



0.$DSEA 



Supervisor 



COMMON 



Select/Bui td Routine 



Summary Table (optional) 



Device Table {Model 12 and Model 15) 



Phase 0E ($DSEA) 



Automatic Work File 
Allocation Routine 
<$DSEG) 



Dynamic Dump 
Loader IO.$DS$E>, 
if dump specified 



Unused 



Alternate Collating 
Table routine (0.$DSBC) ( 
if alternate collating 
sequence specified 



Overlay 



Print COMMON-Dynamic 
Request ($DS$A>, if 
enough room in storage 



BITOHEX Routine ($DSZE) 



BtTOBIT Routine <$DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



Q.$DS$A 



Figure 3-6. Storage Map for Phase 0E 
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Phase aG|0.$DSGA) 

ENTRY: From 0.$DSORT, O.SDSBA, O.SDSCC, 

O.SDSDA, O.SDSDB, or 0.$DSEA 
STORAGE MAP: Figure 3-7 
FUNCTION: 

- Writes a descriptive message indicating permanent 
1-0 errors, severe errors, or terminal errors found in 
any of the preceding generation phases. 

- Issues a programmed halt for 1-0 errors, terminal 
errors, or severe errors. The job is then canceled. 

~ Writes a descriptive message and halts for warning 
errors. The operator then decides to either continue 
or cancel the job. 

- Writes a message, provided there are no errors and 
the print option entry is or 1 , informing the user 
that the job has completed the generation portion 
of Disk Sort. 

- Uses $DSZC to convert hexadecimal error warning 
number to decimal. 

- Gives a brief summary of the sort specifications 
if there were no terminal errors and the print 
option entry is not 2 or 3. 

- If the operator desires to terminate the sort after a 
halt display of 4 22* on the Model 10 Disk System, 
Model 12, and Model 15 or 'CI 23* on the Model 6, 
control is passed to EOJ Transient. 

INPUT: Address of COMMON in XR1. 
OUTPUT: 

- Error messages or a message stating that there were 
no errors in the generation portion of Disk Sort. 

- Halt display ('22' on Model 10 Disk System, Model 
12, and Model 15; 'CI 23* on Model 6) for source 
read warning errors. 

- Halt display C23' on Model 10 Disk System, Model 
12, and Model 15; 'CD3* on Model 6) for source 
read 1-0 errors. 

- Halt display ('25' on Model 10 Disk System, Model 
12, and Model 15; 'CD45' on Model 6) for severe 
or terminal errors. 

- Sort specification summary report. 

ROUTINES USED: $DSZC 
EXIT: 0.$DS1L 



O.SDSGA 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table 



Device Table (Model 12 and Model 15) 



Hex to Decimal Conversion 
Routine ISDSZC) 



Phase 0G ($DSGA) 



Unused 



Alternate Collating Sequence Table 
Routine {0.$DSBC} if alternate 
collating sequence specified 



Figure 3-7. Storage Map for Phase 0G 

GENERATION ROUTINES 

Alternate Collating Sequence Table Routine <0.$DSBC) 

This routine has two parts: 

1 . Table modification 

2. Table usage 

Note: The last byte of this module must reside in the last 
byte of the position assigned to O.SDSORT. For this 
reason, the module must be a multiple of 256. O.SDSBC 
is padded with an overlay maintenance area to make this 
possible. 
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Table Modification Routine 



Automatic Work File Allocation Routine ($DSEG) 



ENTRY: From O.SDSBA 
FUNCTIONS: 

- Modifies the 256-byte alternate collating sequence 
table as specified on the alternate collating sequence 
specification statements that are read in. 

- Updates the error counter and indicator for errors 
found. 

- Prints error messages if the print option entry is 0. 

- Determines if the data is valid, 

- Reads and prints comments. 

- Determines the alternate collating sequence length. 
INPUT: 

- Address of COMMON in XR1 . 

- Alternate collating sequence statements. 

- Alternate collating sequence table. 
OUTPUT: 

- Modified alternate collating sequence table. 

- Printed error messages if errors were detected. 

- Updated error count. 

- Next card image in the buffer area within the SYS1N 
routine. 

ROUTINES USED: O.SDS9I, O.SDS9W, 0.$DS9S 
EXIT: O.SDSBA 



Table Usage Routine 

ENTRY: From $DSCA9,0.$DS1A,0.$DS1B, or 

OSDS1X 
FUNCTION : Translates the indicated data and replaces 

the original data with the translated data. 
INPUT: 

- Address of COMMON in XR1 . 

- Address of the area of the statement to be 
translated (ARR + 1). 

- Length of the area to be translated (ARR + 3). 
OUTPUT: Translated data in place of the original data. 
ROUTINES USED: None 

EXIT: $DSCA9,0.$DS1A,0.$DS1B,0.$DS1X 



ENTRY: FromO.SDSEA 
FUNCTION: 

- Allocates work file space. 

- Builds table of work file extents for automatically 
allocated work file. 

- Determines if space was actually allocated; if not, 
control is passed to O.SDSEA. 

INPUT: Unit availability indicators (ENVQ3). 
OUTPUT: Entries in the table of work file extents. 
ROUTINES USED: None 
EXIT: Next sequential instruction in O.SDSEA 



Decimal to Hexadecimal Conversion Routine (SDSZB) 

ENTRY: From O.SDSBA or SDSCA7 
FUNCTION: 

- Converts an unsigned zoned decimal number (up to 
seven bytes Jong) to a 3-byte hexadecimal number, 

- Sets ERRQ in COMMON to X'FF 1 if the zoned 
decimal number is not valid. 

INPUT: 

- Address of COMMON in XR1. 

- Address of a parameter list in XR2. This address 

is loaded in XR2 immediately before the branch to 
the calling routine. This 4-byte list contains: 

1 . Address of the 7 -by te field in which the zoned 
decimal number is located. 

2. Address of a 3-byte field where the result 
is to be placed. 

OUTPUT: The 3-byte hexadecimal equivalent of the zoned 
decimal number in the field specified by the 
parameter list. 

ROUTINES USED: None 

EXIT: O.SDSBA or SDSCA7 



Hexadecimal to Decimal Conversion Routine |$DSZC) 

ENTRY: From O.SDSGA, O.SDS1Z, O.SDSSA, or 

O.SDSSL 
FUNCTION: 

- Converts a 3-byte hexadecimal number to a 7-byte 
zoned decimal number and concatenates a sign byte 
to the result. 

- Places the result in the 8-byte field specified by the 
calling loutine. The sign occupies the rightmost 
byte of the field. 
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INPUT: 

- Address of COMMON in XR1. 

- Address of a parameter list in XR2. This address 
is loaded in XR2 immediately before the branch 
to the calling routine. The 4-byte list contains: 

1 . Address of the 8-byte field in which the 
resultant zoned decimal number is to be 
placed. 

2 . Address of the 3-byte hexadecimal number to 
be converted. 

OUTPUT: Seven-byte zoned decimal number immediately 
followed by a sign byte in the field specified in 
the parameter list. 

ROUTINES USED; None 

EXIT: O.SDSGA, O.SDS1Z, 0.$DS$A, or O.SDSSL 

Four-Byte Hexadecimal Divide Routine ($DSZD) 

ENTRY: From 0.5DSBA, O.SDSDB, O.SDS1Z, or 

O.SDS3L 
FUNCTION: 

- Divides a 4-byte hexadecimal number into another 
4-byte hexadecimal number: 

1 . Places the divisor and dividend in a 1 2-by te 
work area. 

2. Determines if the divisor is zero. 

3. If the divisor is zero, sets the quotient field 
and the field originally containing the 
dividend to X^FFFFFFF 1 . 

4. If the divisor is not zero, performs the 
following: 

a. Executes division by repeated subtraction 
of the divisor from the dividend. 

b. Gives the correct signs to the resultant 
quotient and dividend. 

c. Places the quotient in the user-specified 
quotient field and the remainder in the 
user-specified remainder field. 

INPUT: 

- Address of COMMON in XR1. 

- Address of a parameter list in XR2. The list 
contains: 

1 . Address of the four bytes containing the divisor. 

2. Address of the four bytes containing the divid- 
end. 

3. Address of a 4-byte field where the quotient is 
to be placed. 

4. Address of where the remainder is to be placed. 

OUTPUT: 

- Resultant quotient in the field specified in the 
parameter list. 

- Remainder in the field specified in the parameter 
list. 

ROUTINES USED: None 

EXIT: 0.$DSDB,0.$DSlZ,orO.$DS3L 



Three-Byte Hexadecimal Multiply Routine ($DSZM) 

ENTRY: From O.SDSBA, O.SDSDB, O.SDS1Z, or 

O.SDS3L 
FUNCTION: 

- Multiplies two, 3-byte, hexadecimal numbers. When 
multiplying, the routine uses a 17-byte work area 
in this format: 

4-bit work area 



DDSEMA 


~ ~ i 

DDSEMB 


DDSEMC 




7 bytes 



























The multiplicand is placed in the first 7 -byte field of 
the work area, DDSEMA. The multiplier is placed 
in the 3-byte field called DDSEMB. The product 
field, DDSEMC, is initially zero. 

The multiplicand is then added to the DDSEMC 
field a number of times equal to the hexadecimal 
value in the 4-bit work area (the high-order four 
bits in DDSEMB). Both DDSEMB and DDSEMC 
are then shifted left four bits. This places the next 
four bits of the multiplier in the 4-bit work area 
and multiplies the value in DDSEMC by 16. This 
process continues until the low-order four bits of 
the multiplier are in the 4-bit work area. At this 
time the multiplicand is added to the value in 
DDSEMC a number of times equal to the value 
in the 4-bit work area. This completes the 
multiplication. 

- Moves the product to the output area. 
INPUT: 

- Address of COMMON in XR1 . 

- Address of a parameter list in XR2. This list 
contains: 

1 . Address of the 3-byte multiplier. 

2. Address of the 7-byte field where the product 
is to be placed. 

3. Address of the three bytes containing the 
multiplicand. 

OUTPUT: Final product in the 7-byte field specified by 

the using phase. 
ROUTINES USED: None 
EXIT: 0.$DSDB,0.$DSlZ,orO.SDS3L 



Read Statement from SYSIN Reader Routine (0.$DS9I) 

ENTRY: From O.SDSORT, O.SDSBA, O.SDSBC, 
$DSCAl,or$DSCA2 
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FUNCTION: 

- Places entry point of itself in SYSIN@ located in 
COMMON. 

- Sets bit 1 on in ENVQ2 to indicate the control 
statements are in the system SYSIN device. 

- Checks the return code from the transient SYSIN 
routine used to read the sort specification state- 
ment and does one of the following: 

1 . Places the high-order address (leftmost byte) 
of the statement image in CARD@ located 
in COMMON if the return code is X'40\ 

2. Gives control to O.SDSGA if the return code 
is X'60' (indicates an 1-0 error exists). 

3. Defaults to an end-of-file condition for any 
other return code. CARD@ points to a 
Y*WHl|W image. 

4. Set end-of-file condition if a //END state- 
ment is read. 

INPUT: Address of COMMON in XR1 . 
ROUTINES USED: System SYSIN routine 
EXIT: O.SDSORT, O.SDSBA, O.SDSBC, SDSCA1, or 
SDSCA2. 

Read Statement from Scheduler Work Area Routine 
(0.$DS9W) 

ENTRY: From O.SDSORT, O.SDSBA, O.SDSBC, or 
O.SDSCA 

FUNCTION: 

- Places next entry point in SYSIN@ located in 
COMMON. 

- Sets bit 2 on in ENVQ2 to indicate that the sort 
specification statements are in the scheduler work 
area. 

- Reads the next specification statement by branch- 
ing to the Scheduler Work Area (SWA) Get routine. 
For more information on the SWA Get routine, refer 
to: 

1 . IBM System/ 3 Disk Systems System Control 
Program Logic Manual, SY21-0502, for Model 
6 and Model 10 Disk System 

2. IBM System/3 Model 12 System Control Pro- 
gram Logic Manual, for Model 12 

3. IBM System/3 Model 15 Scheduler Logic 
Manual, SY21-0035, for the Model 15 

- Checks the return code from the SWA Get routine 
and does one of the following: 

1 . Places the high-order address (leftmost byte) 
of the card image in CARD@ located in 
COMMON if the return code is a X'40\ 

2. Places 7*WHWW in the first eight bytes of 
the statement image and sets the address of 
the statement image in CARD@ if the return 
code is X'80' (indicates end of file), or if it has 
read a //END statement- 



INPUT: Address of COMMON in XR1. 

OUTPUT: None 

ROUTINES USED: SWA Get routine 

EXIT: 0.$DSORT, O.SDSBA, O.SDSBC, O.SDSCA 

Read Statement From Source Library Routine (0.$DS9S) 

ENTRY: From O.SDSORT, O.SDSBA, O.SDSBC, 

$DSCAl,or$DSCA2 
FUNCTION: 

- Places entry point of itself in SYSIN@ located in 
COMMON. 

- Reads the next specification statement by branching 
to the Source Library Get routine ($$SYSG). For 
more information on the Source Library Get 
Routine, refer to: 

1 . IBM System/ 3 Disk Systems System Control 
Program Logic Manual, SY2 1-0502, for Model 
6 or Model 10 Disk System 

2. IBM System/3 Model 12 System Control Pro- 
gram Logic Manual, for Model 12 

3 . IBM System/ 3 Model 15 Scheduler Logic 
Manual, SY2 1-0035, for Model 15 

- Checks the function byte from the Source Library 
Get routine and does one of the following: 

1 . If the function byte is a X*02' on the first Get 
operation, issues a halt ('21* on the Mode] 1 
Disk System, Model 12, and Model 15, 
'CD235' on Model 6). 

2. On subsequent Get operations, CARD@ in 
COMMON is set. CARD® contains th& high- 
order address (leftmost byte) of the card image. 

3. Places 7*WWW in the first eight bytes of 
the statement image and sets the address of 
the statement image in CARD@ if the function 
byte is a X'01 ' (indicates end-of-file) or if it 
has read a // END statement. 

INPUT: 

- Address of COMMON in XR1. 

- Address of a parameter list with the module name 
and unit (MLIST). 

ROUTINES USED: Source Library Get routine ($$SYSG) 
EXIT: O.SDSORT, O.SDSBA, O.SDSBC, SDSCA1 , or 
SDSCA2 
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EXECUTION PHASES 



Phase 1L{0.$DS1L) 

ENTRY: From O.SDSGA 
STORAGE MAP: Figure 3-8 
CHART: AA 
FUNCTION: 

- Performs intialization for PASS#0 common to sort 
execution modules O.SDSI A T O.SDS1B, and 0,$DS1X. 

- Loads the required Phase I modules for 1 A, IB, or 
IX into storage. 

- Determines if input is not from a supported device. 
If it is not, a terminal error is issued and a halt is 
received (*2H' halt on Model 10 Disk System, Model 
12, and Model 15; 'CD25' halt on Model 6). 

- Phase 1 L loads O.SDS IB for PASS#0 if there is 
enough storage for a selection sort (ISTYPE in 
COMMON is set to S in Phase OD). 



- Loads O.SDSI X for PASS#0 if there is enough stor- 
age for a tournament sort. 

- Loads O.SDSI A for sort if not enough room in stor- 
age for O.SDSI B on O.SDSI X but enough room for 
a merge exchange sort. 

- Initializes the DTF area and DTF name to INPUT 
(Model 15 only). 

- If a card device is used, a switch is set (depending on 
the record length) for the purpose of padding the 
input record with blanks during sort execution 
(Model 12 and Model 15). 

INPUT: 

- Address of COMMON in XRl. 

- Input file. 
OUTPUT: 

- Initialization that is common to O.SDSI A, O.SDS1B, 
andO.SDSlX. 

- Updated phase load address in COMMON (PHASE®), 
It is set when Phase 1 A, IB, or 1 X gives control to 
O.SDS1Z. 

ROUTINES USED: None 
EXIT: Phase 1 A, IB, or IX 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table (optional) 



Device Table (Model 12 and Model 15) 



Unused 



Phase 1L|0.$DS1L) 



^7 



Alternate Collating Sequence 
Table Routine (0.$DSBC} if 
alternate collating sequence 
specified ^V* 

^ 



Overlay 



\ 



■X 



DTF Area (Model 12 and Model IB) 



Modules loaded by 0.$DS1 L 



0.$DS1A,0.$DS1B, orO.$DS1X 



Unused 



Figure 3-8. Storage Map foi Phase 1L 
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Phase1A(0.$DS1A) 



ENTRY: FromO.SDSIL 

STORAGE MAPS: Figure 3-9 (Model 6, Model 10 Disk 

System) Figure 3-10 (Model 12, Model 15) 
CHARTS: AB (Model 6, Model 10 Disk System) AC 

(Model 12 and Model 15). 
FUNCTION: 

- Sequences records within the work blocks. 

- Creates the work file consisting of blocks of 
sequenced work records (each block constitutes 
one string). 

- Checks for 1-0 errors; if any errors found, control 
is passed to O.SDS1Z. 

- At end of pass for summary sort, moves the 
summary table from behind the Select/Build code to 
immediately behind COMMON. 

- Upon entry, passes control to O.SDS1M to determine 
device type of first file and load its Data Management 
(Model 12 and Model 15). 

- Determines the next device type at the end of each 
file (up to eight). O.SDS1M is loaded to load Data 
Management if it is not the same device. (Model 12 
and Model 15) 

- In the case of same device being a NS or NL tape or 

a Model 15 card file, calls O.SDS1M to issue halt '26*. 
If halt response is a skip (1 option), the end of file 
logic is repeated until either another file is found or 
the end of the Device Table is reached. (Model 12 
and Model 1 5) 



INPUT: 

- Address of COMMON in XRI. 

- Input file. 

- Linkage to modules in O.SDS1L through addresses in 
COMMON. 

- Device Table (Model 12 and Model 15). 
OUTPUT: Sequential block (strings) or work records on 

the work file. 

ROUTINES USED: Model 6 and Model 10 Disk System - 
Select/Build Routine, O.SDSBC, O.SDSZA, 
O.SDS1D, O.SDS8A, O.SDS8B, 0.$DS8C, O.SDS8D, 
0.$nS$V; Model 12 - Select/Build Routine, 
O.SDSBC, O.SDSZA, OSDS1D, O.SDS1M, O.SDS8F, 
O.SDS9P, 0.$$CFUM, O.SSCSIA, O.SSCSIT, 
OMCSU?\Model 15 - Select/Build Routine, 
O.SDSBC, O.SDSZA, O.SDS1D, O.SDS1M, O.SDS8F, 
O.SDS9P, O.SSARFF, O.SSARRD, O.SSCFUM, 
0.$$CPIP, 0.$$CS1A, O.SSCSIT, O.SSCSUM, 
O.S$MFRD,0.$$MMRD 

EXIT: O.SDS1Z 
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Licensed Material-Property of IBM 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table 



Move Routine (0.$DS2A) 



5444 Consecutive Get Routine 

(0.$DS8A) 

or 

5445 Consecutive Get Routine 

(0.$DS8B) 

or 

Tape Consecutive Get-EBCDIC 

(O.SDSSC) 

or 

Tape Consecutive Get— ASCII 

(0.$DS8D9 



NEXTDB Routine |0.$DS1D) 

or 
5445 BAM Update/Read/Write 
Routine (0.$DS8F) 



WPUTL Routine (0.$DS9P) 



Phase 1A Mainline 



Work Buffer 



Input Buffer 



Unused 



Input Record Area* 



Alternate Collating Sequence 
Table Routine if alternate 
collating sequence specified 
(O.SDSBC) 



This area is a length equat to either the input record 
length (IRECL) or the work record length iWRECL), 
whichever is larger, This area is used for the merge- 
selection internal sort. 

Note: A diagonal broken line indicates an overlay area 
within the original program load. 



Overlay 1 




^4 



Summary Table 



Endof-Pass 
Reporter ($DS1Z) 



Multiply Routine 
($DSZM) 



Divide Routine 
($DSZD) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Dynamic Dump Loader 
(0.$DS$E) if dump specified 



Unused 



0.SDS1Z 



Overlay 2 



Print COMMON - Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine <$DSZEI 



B1TOBIT Routine ($DSZF) 



Hex to Decimal Conversion 
Routine {$DSZC) 



Unused 



0.$DS$A 



Figure 3-9. Storage Map for Phase 1 A - O.SDS1 A - (Model 6, Model 10 Disk System) 
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Licensed Material-Property of IBM 



Supervisor 



COMMON 



Select/Build Routine 



Summary Table (Optional) 



Device Table 



DTF Area 



Data Management Area 



5444 Consecutive Get Routine 
(0,$$CSUP Model 12, 
0.$$CSUM Model 15) 
or 5445 or 3340 Consecutive Get 

(0.$$CFUM) 
or Tape Consecutive Get-EBCDIC 

<0.$$CSIT) 
or Tape Consecutive Get- ASCI I 

(0.$$CSIA) 
or MFCU Consecutive Get Routine" 

|0.$$MFRD) 
or MFCM Consecutive Get Routine* 

(0.$$MMRD> 
or 2501 Consecutive Get Routine** 

(0.$$ARRD) 
or 1442 Consecutive Get Routine** 

(0.$$ARFF) 
or 3741 Consecutive Get Routine** 

(0.$$CPJP) 



Move Routine (0.$DSZA) 



BAM Update (0.$DS1D) or (0.$DS8F) 



WPUTL Routine <0.$DS9P) 



Phase 1A Mainline 



Phase 1A Initialization 
lO.$DS1A) 

or 



Work Buffer 



Next File Initiator 
(O.DS1M) 



Input Buffer 



Unused 



Input Record Area* 



ALTSEQOf used I 



*This area is a length equal to either the input record 
length (IRECL) or the work record length (WRECL), 
whichever is larger. This area is used for the merge- 
selection internal sort, 

**Model 15 only. 

Note: A diagonal broken line indicates an overlay area 
within the original program load. 



Overlay 1 



Summary Table 



End-of-Pass 
Reporter ($DS1Z) 



Multiply Routine 
l$DSZM] 



Divide Routine 
($DSZD) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Dynamic Dump Loader 
(0,$DS$E> if dump specified 



Unused 



O.SDS1Z 



Overlay 2 



| Figure 3-10. Storage Map for Phase 1A - O.SDS1A - (Model 12, Model 15) 



Print COMMON - Dynamic Request 
($DS$A| if enough room in storage 



BITOHEX Routine <$DSZE| 



BITOBIT Routine t$DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



0.$DS$A 
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Phase 1B(0.$DS1B) 



ENTRY: FromO.SDSlL 

STORAGE MAPS: Figure 3-1 1 (Model 6, Model 10 Disk 

System), Figure 3-12 (Model 12, Model 15) 
CHARTS: AD (Model 6, Model 10 Disk System) AE 

(Model 12, Model 15) 
FUNCTION: 

- Performs a selection internal sort outside of the 
work block when enough storage is available. 

- Produces variable length strings of sequenced work 
records. 

- Places a string of a variable number of work record 
blocks onto the work file. The work records in 
each string are in the requested sequence (ascend- 
ing or descending). 

- Checks for a permanent 1-0 error; if any errors 
found, control is passed to O.SDSlZ. 

- At end of pass for summary sort, moves the 
summary table from behind the Select/Build code 
to immediately behind COMMON. 

- Upon entry, passes control to O.SDSlM to determine 
device type of first file and load its Data Management 
(Model 12 and 15). 

- Determines the next device type at the end of each 
file (up to eight). O.SDSlM is loaded to load Data 
Management if it is not the same device (Model 12 
and Model 15). 

- In the case of same device being a NS or NL tape or 

a Model 15 card file, calls O.SDSlM to issue halt '26'. 

If halt response is a skip (1 option), the end of file 

logic is repeated until either another file is found or 

the end of the Device Table is reached (Model 12 and 

Model 15). 
INPUT: 

- Input file. 

- Address of COMMON in XR1 . 

- Linkage to modules in 0.$DS1 L through addresses 
in COMMON. 

- Device Table (Model 12 and Model 15). 



OUTPUT: Variable length strings of work blocks on work 
file in which the records are in sequence. 

ROUTINES USED: Model 6 and Model 1 Disk System - 
Select/Build routine, O.SDSBC, O.SDSZA, O.SDS1D, 
0.SDS1S, O.SDS8A, O.SDS8B, 0.$DS8C, O.SDS8D, 
O.SDS8F, O.SDS9P; Model 12 - Select/Build routine, 
O.SDSBC, O.SDSZA, O.SDS1D, O.SDSlM, O.SDS1S, 
O.SDS8F, O.SDS9P, O.SSCFUM, O.SSCSIA, 
O.SSCSIT, 0.$$CSUP;Model 15 - Select/Build 
routine, O.SDSBC, O.SDSZA, O.SDS1D, O.SDSlM, 
O.SDSIS, O.SDS8F, O.SDS9P, O.SSARFF, 
0.SSARRD, O.SSCFUM, O.SSCPEP, O.SSCSIA, 
O.SSCSIT, O.SSCSUM, O.SSMFRD, O.SSMMRD 

EXIT: O.SDS1Z 



Replacement Selection Internal Sort Routine (0.$DS1S) 

ENTRY: FromO.SDSlB 

STORAGE MAP: Figure 3-1 1 (Model 6, Model 10 Disk 

System), Figure 3-12 (Model 12, Model 15) 
CHART: EB 

FUNCTION: 

- Sequences the work records generated by Phase IB. 

- Keeps track of the number of records in the internal 
sort area that are in the current string. 

- Produces variable length strings of work records. 
INPUT: Work records generated in Phase IB. 
OUTPUT: Sequenced work records 

ROUTINES USED: None 
EXIT: O.SDS1B 
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Supervisor 



COMMON 



Select/Build Routine 



Summary Table 



Move Routine (0.$DS2A) 



5444 Consecutive Get Routine 

(0.$DS8A) 
or 5445 Consecutive Get Routine 

(0$DS8B) 
or Tape Consecutive Get-EBCDIC 

(0.SDS8C) 
or Tape Consecutive Get— ASCII 

(0.SDS8D) 



NEXTDB Routine (0.$DS1D) 

or 
5445 BAM Update/Read /Write 
Routine (Q.$DS8F) 



WPUTL Routine (O.SDS9P) 



Phase 1B Mainline 



Phase 1B Initialization 
(0.$DS1B) 

or 



Replacement Selection 
Internal Sort Routine 
(0.$DS1S) 



Work Buffer 



Sort Area 



Input Buffer 



Unused 



Input Record Area' 



Alternate Collating Sequence 
Table Routine (0.$DSBC) if 
alternate collating sequence 
specified 



Overlay 1 ""^ — ■» . __ 



"This area is a length equal to either the input record 
length (IRECL) or the work record length (WRECL), 
whichever is larger. This area is used for the merge- 
selection internal sort. 

Note: A diagonal broken line indicates an overlay area 
within the original program load. 



Summary Table 



End-of-Pass 
Reporter ($DS1ZJ 



Multiply Routine 
($DSZMJ 



Divide Routine 
($DSZD] 



Hex to Decimal Conversion 
Routine ($DSZC) 



Dynamic Dump Loader 
(0.$DS$E) if dump specified 



Unused 



0,$DS1Z 



Overlay 2"*"*" — — 



Print COMMON - Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine ($DSZE) 



B1TOBIT Routine {$DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



0.$DS$A 



Figure 3-U. Storage Map for Phase IB 0.SDS1B (Model 6, Model 10 Disk System) 
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Supervisor 



COMMON 



Select/Build Routine 



Summary Table (Optional) 



Device Table 

l — 



DTF Area 



Data Management Area 



5444 Consecutive Get Routine 
(0.$$CSUP Model 12 
0.$$CSUM Model 15) 
or 5445 or 3340 Consecutive Get 

(0.$$CFUM) 
or Tape Consecutive Get— EBCDIC 

(0,$$CSIT) 
or Tape Consecutive Get— ASCI I 

(O t $$CSIA) 
or MFCU Consecutive Get Routine* • 

(0.$$MFRD) 
or MFCM Consecutive Get Routine** 

(0.$$MMRD) 
or 2501 Consecutive Get Routine** 

(0.$$ARRD) 
or 1442 Consecutive Get Routine* * 

(0.$$ARFF) 
or 3741 Consecutive Get Routine* * 

(0.$$CPIP) 



Move Routine (0.$DSZA) 



BAM Update <0.$DS1D) or (0.$DS8FI 



WPUTL Routine (0.$DS9P) 



Phase 1B Mainline 



Phase IB Initialization 
(O.SDS1B) 



Replacement Selection 
Internal Sort Routine 
(0.$DS1SJ 



Work Buffer 



Sort Area 



Next File Initiator 
(O.DS1M) 

,or' 



Input Buffer 



Unused 



Input Record Area 1 



ALTSEQtif used) 



Overlay 1 



Summary Table 



n 



End-of-Pass 
Reporter ($DS1Z] 



Multiply Routine 
($DSZMJ 



Divide Routine 
($DSZD) 



Hex to Decimal Conversion 
Routine ($DSZCI 



Dynamic Dump Loader 
IO.$DS$E) if dump specified 



Unused 



*This area is a length equal to either the input record 
length (IRECL) or the work record length (WRECU, 
whichever is larger. This area is used for the merge- 
selection internal sort. 

**Model 15 only. 

Note: A diagonal broken line indicates an overlay area 
within the original program load. 



0.$DS1Z 



Overlay 2 



Figure 342. Storage Map for Phase IB - O.SDS1B - (Model 12, Model IS) -- 
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Print COMMON - Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine ($DSZE) 



BITOBIT Routine <$DSZF) 



Hex to Decimal Conversion 
Routine |$DSZC) 



Unused 



0.$DS$A 



Licensed Material-Property of IBM 



Phase 1X{0.$OS1X) 

ENTRY: FromO.SDSIL 

STORAGE MAPS: Figure 3-13 (Model 6, Model 10 Disk 

System), Figure 3-14 (Model 12, Model 15) 
CHARTS: AF (Model 6, Model 10 Disk System), AG 

(Model 12, Modell5) 
FUNCTION: 

- Performs a tournament sort outside of the work 
block if it is determined that a tournament sort 
will run faster than the sort technique used in 
Phase lAorlB. 

- Produces variable length strings of sequenced work 
records. 

- Places a string of a variable number of work record 
blocks onto the work file. The work records in each 
string are in the requested sequence (ascending or 
descending). 

- Checks for permanent 1-0 errors; if errors found, 
control is passed to O.SDS1Z. 

- Checks work file size; if too small, control is 
passed to O.SDS1Z. 

- At end of pass for a summary sort, moves the 
summary table from the next byte after the Select/ 
Build code to the next byte after COMMON. 



- Upon entry, passes control to 0.$DS1M to determine 
device type of first file and load its Data Management 
(Model 12 and Model 15). 

- Determines the next device type at the end of each 
file (up to eight). O.SDS1M is loaded to load Data 

Management if it is not the same device (Model 12 
and Model 15). 

- In the case of same device being an NS or NL tape or 
a Model 15 card file, calls O.SDS1M to issue halt *26\ 
If halt response is a skip (1 option), the end of file 
logic is repeated until either another file is found or 
the end of the Device Table is reached (Model 12 and 
Model 15). 

INPUT: 

- Input file. 

- Address of COMMON in XR1 . 

- Device Table (Model 12 and Model 15). 

OUTPUT: Variable length strings of work blocks on the 
work file in which the records are in sequence. 

ROUTINE USED: Model 6 and Model 10 Disk System - 
Select/Build routine, O.SDSBC, O.SDSZA, O.SDS1D, 
O.SDS8A, O.SDS8B, 0.$DS8C, 0.$DS8D, O.SDS8F; 
Model 12 - Select/Build routine, O.SDSBC, O.SDSZA, 
OJKDS1D, 0.$DS1M, O.SDS8F, O.SSCFUM, 
O.SSCSIA, 0.$$CSIT, 0.$$CSUP;M<**?/ 15 - Select/ 
Build routine, O.SDSBC, O.SDSZA, O.SDS1D, 
O.SDS1M, O.SDS8F, O.SSARFF, 0.$$ARRD, 
0.$$CFUM, 0.$$CPIP, 0.$$CSIA, O.SSCSIT, 
0.$$CSUM, 0.$$MFRD,0.$$MMRD 

EXIT: O.SDS1Z 
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Supervisor 



COMMON 



'Select/Build Routine 



Summary Table 



Move Routine (O.SDSZAj 



5444 Consecutive Get Routine 

fO.$DS8A) 
or 5445 Consecutive Get Routine 

IO.SDS8B) 
or Tape Consecutive Get - EBCDIC 

(0.$DS8C> 
or Tape Consecutive Get — ASCII 

<0.$DS8D> 



NEXTDB Routine (0.$DS1D) 

or 
5446 BAM Update/Read Write 
Routine (0.$DS8F) 



Phase IX fO.$DS1X) Main 
Loop 



Work Buffer 



Input Buffer 



Input DTF 



Sort Area 



Tree Structure 



Unused 



Input Record Area* 



Alternate Collating Sequence 
Sequence Routine (0.$DSBC) 
if alternate collating sequence 
specified. 



Overlay 1 



Summary Table 



End-of-Pass 
Reporter ($DS1Z) 



Multiply Routine 
($DS2M) 



Divide Routine 
($DS2D) 



Hbx to Decimal Conversion 
Routine ($DSZC) 



Dynamic Dump Loader 
(0-$DS$E) if dump specified 



Unused 



0.$DS1Z 



Overlay 2 *— * ■«— . ^ 



*This area is a length equal to either the input record 
length (IRECL) or the work record length (WRECL), 
whichever is larger. This area is used for the merge- 
selectfon internal sort. 



Print COMMON — Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine {$DSZE) 



0.$DS$A 



BITOBIT Routine ($DSZF) 



Hex to Decimal Conversion 
Routine ($DSZC) 



Unused 



Figure 3-1 3. Storage Map for Phase IX - 0.$DSIX - (Model 6, Model 10 Disk System) 
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Supervisor 



COMMON 



Select/Build Routine 



Summary Table (Optional)**^ 



Device Table 



DTF Area 



Data Management Area 



5444 Consecutive Get Routine 
tO.$$CSUP Model 12, 
0.$$CSUM Model 15) 
or 5445 or 3340 Consecutive Get 

|0.$$CFUM) 
or Tape Consecutive Get — EBCDIC 

(0.$$CSIT) 
or Tape Consecutive Get — ASCIi 

(Q.$$CSIA) 
or MFCU Consecutive Get Routine* • 

(0.$$MFRD) 
or MFCM Consecutive Get Routine** 

(0,$$MMRD) 
or 2501 Consecutive Get Routine" 

<0.$$ARRD) 
or 1442 Consecutive Get Routine" * 

<0.$$ARFF) 
or 3741 Consecutive Get Routine* * 

(0.$$CPIP) 



Move Routine (0.$DSZA) 



BAM Update (0.$DS1D) or (0.$DS8F) 



Phase IX Mainline 



Phase 1X Initialization 
(0.$DStX) 

or' 



Work Buffer 



Next File Initiator 
(0.DS1M) 

or' 



Input Buffer 



Sort Area 



Tree Structure 



Unused 



Input Record Area* 



ALTSEQ (if used) 



Overlay 1 



"x 



Summary Table 



End-of-Pass 
Reporter ($DS1Z) 



Multiply Routine 
l$DSZMJ 



Divide Routine 
l$DSZD) 



Hex to Decimal Conversion 
Routine ($DSZC) 



\ 



S 



\ 

Dynamic Dump Loader 
(0.$DS$E) if dump specified 



N 



\ 



Unused 



0.$DS1Z 



\ 



\ 



\ 



\ 



\ 



N 



\ 



\ 



\ 



\ 



Overlay 2 



\ 



*This area is a length equal to either the input record^"**—-*. 

length OR ECU or the work record length (WRECL), "*"***^ ^^ 

whichever is larger. This area is used for the merge- 

selection internal sort. 
**Model 15 only. 
Figure 3-14. Storage Map for Phase IX - 0.SDS1X - (Model 12, Model 15) 



Print COMMON - Dynamic Request 
($DS$A) if enough room in storage 



BITOHEX Routine <$DSZE) 



BITOBIT Routine ($DSZF) 



Hex to Decimal Conversion 
-Routine <$DSZC) 



Unused 



0.$DS$A 



Program Organization 3-27 



Licensed Material -Property of IBM 



I Next File Initiator (0.$DS1 M) Model 12 and Model 15 

ENTRY: From O.SDS1A, O.SDS1B, or 0.SDS1X 
CHART: CD (Model 12), CE (Model 15) 
FUNCTION: 

- Determines the type of device being used and builds 
the DTF. 

- Pads the input record area when the input record 
length is greater than the record length of the 
current device (Model 15 only). 

- Issues halt '26' for a nonlabeled or nonstandard type 
or card file. 

- Loads Data Management for the current device, 
INPUT: 

- Device Table. 

- Address of COMMON in XR1. 
OUTPUT: 

- DTF information for opening the file. 

- To COMMON: Switch indicating "skip file" when 
a 1 -option is the response to a '26' halt. 

ROUTINES USED: O.SDSZA 

EXIT: O.$DSlA,O.$DSlB,or0.$DSlX 
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End-of-Pass Reporter (0.$DS1Z) 

ENTRY: From O.JDS 1 A, O.SDS IB, O.SDS 1 X, 

O.SDS2A, O.SDS3A, or 0.SDS3S 
STORAGE MAP: See the storage maps of the 

appropriate phase. 
CHARTS: DA (Model 6, Model 1 Disk System) DB 
| (Model 12, Model 15) 

FUNCTION: 

- Performs the following for pass number (Phase I 
end): 

1 . Calculates the number of tracks the work 
file uses, 

2. Calculates the number of passes remaining. 

3. Sets WREC#T (total number of work records 
created) in COMMON. 

4. Sets WBLK#T (total number of work blocks 
created) in COMMON. 

5. Logs the number of work records read and 
accepted if the print entry option is not 3. 

6. Determines if there were any records in the 
input file; if none, control is passed to 
O.SDS4A. 

7. Determines if no records were selected. 

8. Determines if there are more work records 
than input records. 

9. Allocates space for the output file if deferred 
after the input file is closed. 



Supervisor 



COMMON 



Summary Table (optional) 



Unused 



10. 

11. 



12. 



Calculates output file size (in tracks). 

Compares the actual output file size with the 

output file size required; gives a halt if the 

actual output file is too small. 

Selects a merge configuration based on the 

number of strings created (Model 12 and Model 

15). 

- Performs the following for last pass (Phase III end): 

1 . Determines if the number of work records is 
equal to the total number of work records. 
If they are not equal, this is a terminal error 
and control is passed to 0.SDS4A, 

2. Writes a message giving the number of sorted 
records on the output file if the print option 
entry is or 1 . 

- Performs the following for all other passes: 

1 . Prints end-of-pass messages if the print option 
entry is or 1 . 

2. Ensures that the current record counter 
(WREC# in COMMON) is not higher than the 
total number of work records created 
(WREC#T in COMMON). 

3. Determines whether to perform an inter- 
mediate pass (Phase II) or a last pass (Phase 
III). 

INPUT: Address of COMMON in XR1 . 
OUTPUT: 

- Error messages. 

-- Information messages. 
ROUTINES USED: SDSZD, SDSZM, SDSZC 
EXIT: O.SDS2L, O.SDS2A (Model 12 and Model 1 5), 
O.SDS3L, or O.SDS4A 



Phase 2L <0.$DS2L) 



Overlay 



Modules loaded by O.SDS2L 



0.$DS2A 



Figure 3-15. Storage Map for Phase 2L 



Unused 
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Phase 2L I0.&DS2L) 



Phase 2A <0.$D$2A) 



ENTRY: From 0.SDS1Z 
STORAGE MAP: Figure 3-15 
FUNCTION: 

- Loads the modules required by O.SDS2A to perform 
Phase II into storage. 

- Ensures that the work file is using 5444 or 5445; if 
it is not, control is passed to the EOJ Transient. 

- Exchanges control to O.SDS2A when required 
modules are loaded. 

INPUT: Address of COMMON in XR1. 

OUTPUT: Modules required by O.SDS2A are in storage 

and their entry points are set up in COMMON. 
ROUTINES USED: None 
EXIT: O.SDS2A 



ENTRY: From O.SDS2L and O.SDSIZ 

STORAGE MAPS: Figure 16 (Model 6, Model 10 Disk 

System), Figure 17 (Model 12 and Model 15) 
CHART: BA 
FUNCTION: 

- Sets order of merge for this pass (OMP) to the 
normal order of merge (OM). 

- Determines work block addresses (WBLK@). 

- Determines output block addresses (WBUF@). 

- Calls O.SDS9G to locate the next record to be merged, 

- Calls 0.5DS9P to locate the position of the next 
record in the work block. 

- Places the current CSD/CHR into the WCBLKC 
field in COMMON. 

- Places the next CSD/CHR into WNBLKC in 
COMMON. 

- Merges strings created in Phase I A or IB until 
the total number of strings is less than or equal 
to the sort's order of merge. 

INPUT: 

- Work file. 

- OLDS structured element array (see Section 5. 
Data Area Formats for a description of this table). 

- AVAIL table (see Section 5. Data Area Formats 
for a description of this table). 

OUTPUT: Strings of work records less than or equal to 

the order of merge on the work file. 
ROUTINES USED: 0.$DS8E, 0.$DS9G, O.SDS9P 
EXIT: O.SDS1Z 
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Figure 3-16. Storage Map for Phase 2A - 0.$©S2A - (Model 6, Model 10 Disk System) 
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Figure 3-17. Storage Map for Phase 2A - 0.$DS2A - (Model 12, Model 15) 
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Phase 3L (0.SDS3L) 

ENTRY: FromO.SDSlZ 
STORAGE MAP: Figure 3- 18 
CHART: CA 
FUNCTION: 

- Loads the modules required by 0.$DS3A/0.$DS3S 
to perform Phase III into storage. 

- Recomputes the output buffer number and length 
if the number of remaining strings is less than the 
order of merge, 

- Determines if there is enough storage available 
for last pass; if not, this is an internal sort error 



and control is passed to EOJ Transient. 

— Performs initialization for the last pass common to 
both summary and non-summary Phase III 
modules, O.SDS3A and 0.SDS3S. 

- Loads O.SDS3A into storage if the sort is non-summary. 
If it is a summary sort O.SDS3S is loaded into storage. 

INPUT: Address of COMMON in XR1 . 
OUTPUT: Initialization common to O.SDS3A and 

O.SDS3S, including loading of required Phase III 

modules. 
ROUTINES USED: SDSZD, SDSZM (0.$DS3L loads in 

the modules needed for O.SDS3A and O.SDS3S to 

conserve space on the system disk). 
EXIT: O.SDS3A or O.SDS3S 



Supervisor 



COMMON 



Summary Table (optional) 



Unused 



Phase 3L (0.$DS3L) 



V 



\ 



Overlay 



Modules loaded by 0.$DS3L 



0.$DS3A or Q.$DS3S 



Unused 



Figure 3-18. Storage Map for Phase 3L 
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Phase 3A{0.$DS3A) 

ENTRY: FromO.$DS3L 
STORAGE MAP: Figure 3-19 
CHART: CB 
FUNCTION: 

- Performs last pass of the merge started in Phase I or 
Phase II , depending on where the number of 
remaining strings became less than the order of 
merge. 

- If this is a SORT A with tape output, blocks six 
ADDROUT records to each 1 8-byte tape record. 



- Places the sorted records consecutively in the 
output file. 

- Determines if end of extent was reached in Phase 
III; if it was, control is passed to O.SDS1Z. 

- Checks for a permanent 1-0 error during a Put 
request to the output file; if error found, control 
is passed to O.SDS1Z. 

- Determines if error occurred in closing the output 
file; if it did, control is passed to O.SDS1Z. 

INPUT: 

- Work file. 

- Address of COMMON in XR1. 

- Linkage to modules loaded by 0.$DS3L through 
addresses in COMMON. 

OUTPUT: Sorted output file. 

ROUTINES USED: Model 6 and Model 10 Disk System 
O.SDS8E, O.SDS8G, O.SDS8H, ODS8I, O.SDS8J, 
OSDS9G; Model 12 - O.SDS8E, 0.$DS9G, 
O.SSCFOM, 0.$$CSOA, 0.$$CSOP, O.SSCSOT; 
Model 15 - O.SDS8E, 0.$$CSOM, O.SSCFOM, 
0.$$CSOT, O.SSCSOA, O.SDS9G 

EXIT: O.SDS1Z 
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Figure 3-19. Storage Map for Phase 3 A - 0.SDS3A - (AU Models) 
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Phase 3S (0.$DS3S) 

ENTRY: FromO.$DS3L 
STORAGE MAP: Figure 3-20 
CHART: CC 
FUNCTION: 

- Performs last pass of the merge started in Phase 

I or Phase II, depending on where the number of 
remaining strings became less than the order of 
merge. 

- Deletes duplicate records if no summary table 
exists. 

- Summarizes duplicate records as specified if a 
summary table exists. 

- Determines if records are in proper sequence; if 
not, control is passed to the EOJ Transient. 



- Checks for end of extent; if reached, control is 
passed to O.SDS12. 

- Determines if an error occurred while closing the 
output file; if it did, control is passed to O.SDS1Z. 

- Places the sorted records consecutively in the 
output file. 

INPUT: 

- Work file. 

- Address of COMMON in XR1 . 

- Summary table. 

- Linkage to modules loaded by O.SDS3L through 
addresses in COMMON. 

OUTPUT: Addresses in COMMON. 

ROUTINES USED: Model 6 and Model 10 Disk System - 
O.SDS8E, O.SDS8G, O.SDS8H, O.SDS8I, O.SDS8J, 
0.$DS9G\Model 12 - O.SDS8E, O.SDS9G, 
0.$$CFOM, 0.$$CSOA, 0.$$CSOP, 0.$$CSOT; 
Model 15 - O.SDS8E, O.SSCSOM, 0.$$CFOM, 
O.SSCSOT, 0$$CSOA, O.SDS9G 

EXIT: O.SDS1Z 
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• Figure 3-20. Storage Map for Phase 3S - 0.5DS3S - (All Models) 
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Phase 4 10.$DS4A) 

ENTRY: FromO.SDSlZ 

STORAGE MAP: Figure 3-21 
FUNCTION: 

- Prints J-0 error or terminal error action messages 
if the print option entry is not 3. 

- Displays the halt and ends the job after unsuccess- 
ful completion via the Halt/Syslog Transient 
routine. 

- Terminates the Disk Sort program after success- 
ful completion via Halt/Syslog Transient routine 

INPUT: Address of COMMON in XR1. 
OUTPUT: 

- Printed message indicating whether end of job is 
normal or abnormal. 

- Printed action messages if the print option entry 
is not 3 and errors were found. 

- Program halt display for errors found. 
ROUTINES USED: None 

EXIT: EOJ Transient 



Supervisor 



COMMON 



0.$DS4A 



Unused 



NEXTDB Routine for Phase 1 (0.$DS1D) 

ENTRY: From O.SDS9P or 0.$DS1X 

CHART: EA 

FUNCTION: 

- Calculates arid places in COMMON the cylinder/ 
sector/displacement (CSD) of the current work 
record. 

- Calculates and places in COMMON the CSD of 
the next work record. 

- Starts the next CSD on the next extent if block 
length plus displacement is greater than block 
length in the table of work file extents. This is 
done because a partial block is not used. 

- Checks whether the next block used is in an 
existing extent; if not, control is passed to the 
next sequential instruction + 1 of O.SDS9P or 
O.SDS1X. 

INPUT: 

- Table of work file extents. 

- Block length, 

- Address of COMMON in XR1 . 
OUTPUT: Entries in COMMON. 
ROUTINES USED: None 

EXIT: 0.$DS9PorO.$DSlX 



Figure 3-21. Storage Map for Phase 4 



EXECUTION ROUTINES 



Variable Length Move Routine (0.$DSZA) 

ENTRY: From O.SDS1 A, O.SDS1 B, or 0.$DS 1 X 

FUNCTION: Moves a given number of bytes from one 
area in storage to another. 

INPUT: 

-- Address of COMMON in XR1 . 
— Address of a parameter list in XR2. This list 
contains: the high-order address of the area in 
storage where the bytes are to be moved; the 
high-order address of the area from which the 
bytes are to be moved; the address of a two-byte 
field that gives the number of bytes to be moved. 

OUTPUT: The moved bytes to the storage address 
indicated in the parameter list. 

ROUTINES USED: None 

EXIT: 0.$DSlA,0.$DSlB,orO.$DSlX 
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Work File Put-Locate (WPUTL) Routine (0.$DS9P) 

ENTRY: From O.SDS1A, 0.SDS2A, or O.SDS1B 
CHARTS: EE (Model 6, Model 10 Disk System) EF 
I (Model 12, Model 15) 

FUNCTION: Figure 3-22 is a chart showing, in general 
terms, how WPUTL is used by the execution phases. 
This routine: 

- Maintains interblock vectors within a string of 
blocks. 

- Maintains interstring vectors in the work file. 

- Analyzes input and performs one of these 
functions: 

1 . Sets up WBLK@, WRITE®, and WRITE. 

2. Writes the first record in the first block of 
the first string and indicates if it is the 
only record in the block. 

3. Checks for error during the WRITE; if error 
found, control is passed to 0.$DS1 A, 
O.SDS2A, orO.SDSlB. 

4. Writes the first record in the first block of 
the first string and indicates if it is the 
only record in the block. 

5. Writes the next record in the current new 
block and indicates if it is the last record 
in the block. 

6. Writes out a full block continuing the current 
new string. 

7. Writes out a full block ending the current 
new string. 

8. Writes out a full block and ends processing of 
this current new string (Phase 2 A only). 

9. Writes out any records in the current new 
block and indicates end of pass. 

10. Checks if work file is too small; if it is, control 
is passed to O.SDSl A, O.SDS1B, or 0.$DS2A. 
INPUT: Address of COMMON in XRl . 
OUTPUT: Figure 3-23 shows the possible combinations 

of input and output fields and their meaning on 

entry and exit from WPUTL. 
ROUTINES USED: None 
EXIT: 0.$DSlA,0.$DSlB,orO.$DS2A 
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X Beginning of WPUTL use 



User sets 
WPUTL master 
switch to F 
(WORKQ=F) 



WPUTL 



Gets storage 
address of where 
record to be 
placed 



Catling 
routine does 
some processing 



Calling routine 
places record 
at storage 
address 



Indicates last 
caU for WPUTL 
(WORKQ-L) 



WPUTL 



Writes the 
buffer 




Yes 



(END ] 
y End of 



WPUTL use 



Calling 
routine does 
some 
processing 



Indicates 
continuation 
of string for 
WPUTL 



WPUTL 



Writes the 
buffer 




Yes 



Indicates 
end of string 
for WPUTL 



Figure 3-22. Chart of the WPUTL Routine as Used by Execution Phases 
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Figure 3-23. Combinations of Input and Output Fields 
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Work File Get-Locate (WGETL) Routine (0.SDS9G) 

ENTRY: From O.SDS2A, O.SDS3A, or O.SDS3S 
CHART: ED 

FUNCTION: 

- Provides the logical get 1-0 function for the work 
file. 

- Determines if INQ=F (first call of pass). If it does, 
the CSD/CHR of the first string in WGETL is 

the CSD/CHR of the last string completed by 
WPUTL in the previous pass. A branch is then 
taken to read the block. 

- Checks for errors during read; if error found, 
control is passed to O.SDS2A, O.SDS3A, or 
O.SDS3S with the error marked. 

- Determines if INQ=F (first call of this pass). If it 
does, sets up next string and availability table, 
then control is passed to $DS9R. 

- Determines if INQ=N (starting a new string); if 
it does, checks if old strings are left. If there are 
none left, the order of merge of new string is 

and control is passed to O.SDS2A, O.SDS3A, 
or O.SDS3S. If old strings are left, another block 
is read. 

- Checks if all records in block are processed. If 
not, finds next record address; then control is 
passed to O.SDS2A, O.SDS3A, or O.SDS3S. 

- Reads new block and sets pointers to next block 
in old string. 

INPUT: Address of COMMON in XR1 . 



OUTPUT: 

- OLDS structured element array. 

- AVAIL table. 

ROUTINES USED: (XSDS9G, $DS9R 
EXIT: O.SDS2A, O.SDS3A, or O.SDS3S 



DISK SORT DATA MANAGEMENT ROUTINES 

The Disk Sort program uses several data management func- 
tions. Each of these functions is part of a load module 
containing the 6-byte module ID, the necessary data manage- 
ment code for the functions, a maintenance area, and the 
entry point of the load module (see Figure 3-24). 

Figure 3-25 lists the Disk Sort Data Management Modules 
and the entry point, functions, input and output of each. 
In addition, the phases and routines which call each Data 
Management routine are listed. 



Six byte module ID 



Data Management Code 



Maintenance Area 



Entry Point 



Figure 3-24. Disk Sort Data Management Load Module Organization 



3^2 



Licensed Material-Property of IBM 



Disk Sort Data 

Management 

Routine 


Entry Point 


Data 

Management 
Routine * 


Called By: 


Model 6, Model 10 Disk System 


Model 12, Model 15 


5444 Data Management 
Consecutive Get routine 
(Locate Mode) — 0.$DS8A 


$DS7A0 


$$CSUP 

(Model 12 only) 
$$CSUM 

(Model 15 only) 


$$CSUP 

(Model 12 only) 
$$CSUM** 

(Model 15 only) 


0.$DS1A 
03DS1B 
0.$DS1X 


5445 Data Management 
Consecutive Get routine 
(Locate Mode) - O.SDS8B 


SDS7B0 


$$CFUM**** 


$$CFUM** 


0.$DS1A 
0.$DS1B 
0,$DS1X 


5445 Data Management 
BAM Read/Write 
routine — 0.$DS8E 


$DS7E0 


$DS7G0**** 


$$CFRW 


G.$DS9G 
0.$DS9P 


5445 Data Management 
BAM Update/Read/ 
Write routine — OiiDSSF 


$DS7F0 (Read/Write) 
$DS7F0-6 (Update) 


$DS7F0 (Read/Write) 
$DS7F0-6 (Update)**** 


$$CFDT 


0-$DS9P 
O.SDS1X 


5444 Data Management 
Consecutive Put routine 
- 0.$DS8G 


$DS7G0 


$$CSOM 

(Model 15 only) 
$$CSOP (Model 12 only) 


$$CSOM 

(ModeJ 15 only) 
$$CS0P 

(Model 12 only) 


0.$DS3A 

0.$DS3S 


5445 Data Management 
Consecutive Put routine 
- O^DSSH 


$DS7H0 


$$CFOM**** 


$$CFOM 


0.$DS3A 
O.SDS3S 


Tape Data Management Con- 
secutive Get EBCDIC routine 
(Locate Mode) - O.SDS8C 


$DS8C0 


$$CSIT 


$$CSIT'** 


0.$DS1A 
0.$DS1B 
0.$DS1X 


Tape Data Management Con- 
secutive Get ASCI 1 routine 
(Locate Mode) - 0.$DS8D 


$DS8D0 


$$CSIA 


$$CSIA 


0.$DS1A 
O.SDS1B 
0.$DS1 X 


Tape Data Management 
Consecutive Put EBCDIC 
Routine - 0.$DS8l 


$DS8I 


$$CSOT 


$$CSOT*** 


0.$DS3A 
0.$DS3S 


Tape Data Management 
Con secuttve P ut A SC 1 1 
Routine -0.$DS8J 


$DS8J 


$$CSOA 


$$CSOA 


0.$DS3A 
0.$DS3S 
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Disk Sort Data 

Management 

Routine 


Entry Pofnt 


Data 

Management 
Routine * 


Called By: 


Model 6, Modal 10 Disk System, 
Model 12 


Model 15 


MFCU Read - 0.$$MFRD 


Not supported 


$$MFRD 


$$MFRD 


O.SDS1A 
0.$DS1B 
O.SDS1X 


MFCM Read - 0.$$MMRD 


Not supported 


$$MMRD 


$$MMRD 


0.$DS1A 
0.$OS1B 
0.$DS1X 


2501 Read - 0.$$ARRD 


Not supported 


$$ARRD 


$$ARRD 


0.$DS1A 
0.$DS1B 
0.$DS1X 


1442 Read/Punch- 
0.$$ARFF 


Not supported 


$$ARFF 


$$ARFF 


O.SDSIA 
0,$DS1B 
0.$DS1X 


3741 Data Station - 


Not supported 


$$CPIP 


$$CPIP 


O.SDS1A 
O.SDS1B 
0.$DS1X 



•Corresponding Disk Sort Data Management Routine performs same functions, requires same input, and 
produces same output as Data Management routine in this column. For Model 6 and Model 10 Disk 
System, see IBM System/3 Disk Systems Data Management and Input/Output Supervisor Logic Manual, 
SY21-0512; for Model 12, see IBM System/3 Model 12 System Control Program Logic Manual; for 
Model 1 5, see IBM System/3 Model 15 Data Management Logic Manual, S Y21 -0034. If any data 
management errors are found for these routines, control returns to the calling routine. 

••Input only 
•••This Data Management routine is used for both 9-track EBCDIC tapes and 7-track tapes. 
••••Also used for 3340 Data Management 
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ID SI 1.0 



* INITIALIZE * 
*COMHON fl£OUIPED* 

* BY 0*SDS1A* * 

* D.SDSZS* * 

* O.tDSIX * 
***************** 



LOAD PHASE I 

MODULES INTO 

STORAGE 



*****91 a********* 

* PLACE PHASE I * 

• ENTRY POINT * 

* AODRESS IN * 

• CDMMQN * 
t * 
***************** 



' ZERO THE DTF 
'AREA IHODEl. IB 
' ONLY) 



Fl *. 

* *» 

0-SOS1X •• YES 

FASTEST .* 

SOPT .* 

•• .* 



* NO 



.* ENOUGH • ■ NO 

*• stowage ran ,* — 
*. SORT ,* 



•***G2* •••••••• 

* * 
->• EXIT • 

• * 

to: phase OttDstA 



* EXIT * 

* • 
to: °hase 0.*DSI8 

Chart A A. Phase 1L 
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♦ •*• 

• • 

• A3 • 



«DSI AO 

* hurray < 



•DECREMENT TOTAL* 
•NUMBER OF INPUT* 
• RECORDS BY I • 



• ••• 

* • 

* B3 • 

* * 

• •** 



*m***Bl ********** 

• SET WORK BUFFER* 

• ADDRESS TO * 

• BEGINNING OF * 

• PHASE I A * 



**B3******* 
•SET SWITCH i 

• FOR NO 

• ALTERNATE 

• COLLATION 



SET STR»l AND 
INPUT RECORD 
COUNTER TO 



STR»I POINTS TO 
THE FIP5T BLOCK 
OF THE FIRST 
STRING ON THE 
WORK FILE 



V CC/01/A2 

•••••C6*« •*»»•••* 
•0.*DS9P • 



********* 



******** 



*****Ol ********** 

• SET WPUTC * 
♦REQUEST SWITCH * 

• TO INDICATE * 

• FIRST REOUEST • 

• IHORKQ-F) • 



••••*D2 ******** ** 

* SET SWITCH TO • 

* ADDRESS DP * 
■* SELECT/BUILD *< 

* ROUTINE * 



•*D3******* 

•SET SWITCH * 

•FOR ALTERNATE* 

> COLLATING « 

* ROUTINE • 

• • 

+•••*•••••• 



1X912 V 

***** OS* ********* 

* PLACE ADDRESS * 

• OF LOCATED * 
•INPUT RECORD IN* 
•L1REC IN COMMON* 



* A3 * 

• * 
*•*• 



*****GS**+******* 



***************** 



• IE030 

♦*FZ******* 

* put x»e** * 

• IN O CODE OF * 
-♦ BC t 

* INSTRUCTION * 

• • 
*********** 



**P3*****m* 
• PUT X«S2« 4 

• IN CODE OF 
* 8C 

• INSTRUCTION 



*****FS********** 

* PLACE ADDRESS * 
•OF WORK RECORD * 

* IN BRECW * 

* I ADDRESS DF * 
•WORK BUILD LOCI* 



•INCREMENT TOTAL* 

• NUMBER OF INPUT*< . 

• RECORDS * 



• 002* 

• FI* 
***** 



* USE ALTERNATE • 

* COLLATING • 

* ROUTINE t *' 

* ALTERNATE • 
•COLLATING TABLE* 
*•*****•**•*•*••* 



•IXOI3 


.*. 

G5 *. 

■ • *. 




VES p.* 




• 


*■. 


ALTERNATE 




* 


.COLLATING. 


+ 






SEE SELECT/ 
BUILD ROUTINE 
DIAGRAM IN 
5EC.6, FIG &-S| 



-• DETERMINE IF • 
•REC IS INCLUDE * 

• OR OMIT REC * 
***************** 
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***** 
•O01« 

* MS* 



CI 


*. 




.*R£CORO *. 




res ■• last in *. 




--*. OUTPUT .• 




1 *. BLOCK .* 




*. .* 




V *. »* 




*•• • mo 




4 






63 * 

* 
• •• 


< 






***** 






• 003* 


•ixais v 


* B5* 


**•**£>! •**••*••*• 


* * 


• OH • 


• 


* — , — — ........ • 


| 


• * GET ONE * *< 




* * INPUT * • 




• * RECORD * * 





* B3 *--^ 

* 1 
• •** 

•1X030 V 

•****B3* •♦***•*** 

•SET WPUTL WORK • 

♦ STRING SWITCH • 

* TO INDICATE * 
•THIS BLOCK END • 

• OF STRING * 



•PUT ADDRESS OP 
•FIRST RECORD I» 
• ARRAY ADDRESS 



•••••S6**** ****** 

• * 

• SET LOWER START* 
•ADDRESS (Kl TO • 

• • 




IIE105 .+. 






D3 •■ 






.♦NO. OF •■ 






••RECORDS TO *. 


YES 




*. 3Q .♦ 




V 


*. .* 




***** 


• • .* 




• 003* 


• NO 




• JJ* 



•••• 

I « 

* M3 » 
► « 

• ••• 



•SET INTERVAL OF* 
•COMPARISON FOR • 
• NEXT PAS5 • 



•••••Eg********** 
•SET POINTER OF • 
•NEXT ADORESS TO* 

• BE CHECKED IL) * 

• ■ K • 



• •••* 


* YES 


• 0O1* 






• G3» 






* • 






• 








V 




.*• 




Gl *. 




.* INPUT • 


• • 


RECORD 


». 


C0UN1 


reR - 



* INDICATE LAST 
•CALL FOR WPUTL 

• fWQRKD^L) 



•*jl******* 

• SET SWBZ TD« 

> ADDRESS OF 

CLOSE FILE 

LOGIC 



•••••G3« •••*••*•• 

• DECREMENT • 

• NUMBER OF ■ 

• RECORDS TO BE ■ 
•SEQUENCED BY 1 ■ 

• • 


• «•* 

• * 

• H3 •-> 

• * 


< 


• ••• V 
#IE110 .♦. 

H3 *. 
• * *t 


YES .♦ 

*. INT 

*. 
*, 

• . 


= 1 .• 
• • 

■ • 

.• 
► NO 



•***#FB4*«««***** 
• • 

•SET POINTER OF • 
♦NEXT ADORCSS TO* 
•BE CHECKeO « L * 



• •*• 

• 003* 

• B3 i 



•••• 
1CI30 

•****GS**»«***** 



SET L - M 



•••*H5****«**« 
AOD INT IOH 



TO! PHASE * 



COMPUTE INT 
(COMPARE 
INTERVAL! 



• ••* 

• • 

• BS • 

• • 

• ••• 



>• M > NO. 

> OF RECORDS 
•.IN ARRAY , 
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***** 

• 00?* 

* JS* 



**** 

* 

A3 ♦ 



• **• 

* * 

* 05 * 

* * 

• *** 



• SET XR2 TO ♦ 
♦ADDRESS OF LAST* 
♦ADDRESS CHECKED* 

* * 
•+«*******••***** 



■•CON PARC* • 
• ARRAY (L> *i 

TO ARRAY 
*. <N> .♦ 



YES 



MORE 

INPUT 

RECORDS 



*002* 
* G5* 

* • 



•****0I ********** 

* • 

•SET INDEX TO 1 * 



*****03***» ****** 

* • 

* * 
*MOVE THE FIELO ♦ 



♦***D********** 
* 
EXIT *<- 



to: dynamic dump 

LOADER 
FA/D1/A1 






»*Fl******* 

• * 

* MODIFY • 

> COMPARE < 

* INSTRUCTION * 

• • 
*********** 






**C1 ******* 
* t 

• WOOIFY 
COMPARE 

• fNSTRUCTTON 



* MODIFY • 
COMPARE ' 

♦ INSTRUCTION ♦ 



•*H2******* 

i i 

MODIFY 

COHPARF 

INSTRUCTION 



* INCREMENT INDEX* 



*****E3********** 



• ***E ■}•*••••**• 

* * 

* EXIT < 

* * 
*************** 

to: end-of-pass 

REPORTER 
DAyOl/Al 



*****P3********** 



*MOVE THE FIELD • 



•****G3 ********** 



•****H3* ********* 



•MOVE THE FIELD • 



**** 

• 002* 

* 03 *-> 



V EE/OI/AE 



•D.»DS9P 



• ••< 



• *•• 

* * 

• S9 • 
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• ••« 

* * 

* A3 • 

* 4 
**** 



•DECREMENT TOTAL* 
•NUMBER OF INPUT* 

• RECORDS BY 1 » 

* + 
***************** 



**«**Bl **•****•*• 

•set work buffer* 

• ADDRESS TO • 

• BEGINNING OF • 

• PHASE 1* * 



•SET SWITCH « 
" FOB ND 

ALTERNATE 
' COLLATION 



*****Ct ********** 

* * 

* SFT STR»1 AND * 

* INPUT RECORD *< 

* COUNTER TO * 

* « 
***************** 



STR«I POINTS TO 
THE FIRST SLOCK 
OF THE FIRST 
STRING ON THE 
work FILE 



V CF/0I/A2 
•••••CS********** 
*0.»DS9P * 

• PUT-LOCATE ♦ 

• RECORD ♦ 



*****0 I ********** 

• set wputl * 
•request switch * 

• to indicate * 

• first request * 

• (WDRKQ*P1 * 
***************** 



*****02 ********** 

* SET SWITCH TD * 

* ADDRESS OF ♦ 
■♦ SELECTXflUILO ♦ < 

* ROUTINE + 



•*D3******* 

• SET SWITCH * 
♦FOR ALTERNATE* 
> COLLATING * 
* ROUTINE * 



1X012 V 

***** 05* ********* 

* PLACE AOORESS * 

* OF LOCATED « 
•INPUT RECORD IN* 
*LIREC IN COMMON* 

* * 
***************** 



<***************, 



**P2******* 
• PUT X«6*' " 

n a cooe of 

BC 
INSTRUCTION 



**f3******* 

* PUT X'8Z» * 
•IN O CODE DF 

BC 
* INSTRUCTION 



*****FS ********** 

• PLACE ADDRESS * 
•OF WORK RECORD * 

• IN BR ECU * 

• (ADDRESS OF * 
*WORK BUILD LOC)* 
***************** 



«**«*G3 ********** 

* * 
•INCREMENT TOTAL* 
•NUMBER OF INPUT*< — 

• RECORDS * 



*****G* ********** 

* USE ALTERNATE * 

* COLLATING 

* ROUTINE t 

* ALTERNATE * 
♦COLLATING TABLE* 



*<- 



**** 
I * 

* B6 • 

h * 

*** + 



♦ 002* 

* Fl* 
***** 



SEE SELECT/ 
BUILD ROUTINE 
DIAGRAM IN 
SEC- 6. FIG t>-t 



■* DETERMINE IF 

• REC IS INCLUDE 

* OR OMIT REC 
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•001* 
» H5* 



OMIT *. YES 
RECORD .* 1 



• NO 





♦RECORD - 


yes .* 


LAST IN 


— *• 


OUTPUT 


1 *« 


BLOCK 




*. . * 


V 


*• * * 


***■ 


* NO 


* 






*J3 « 




< 


* 






**«• 






#1X015 


V 


*D« 







***** 
*00** 
• 85" 



SET qn6 

INPUT 
RFCDR 



**•**££, 



* INDICATE I/O 
>*ERROR UOERRQI 



3 *— 


— , 


* 


1 


** 


V 




• « 


B3 


*« 


.* 


* 


IS 


THIS 


ENTRY USED 



SKIP TO •• YES 

NEXT FILE .* 

, REQUEST .* 



*****Q3 ********** 



•RESET SKIP PILE* 
* SWITCH * 



E3 



*» 



.* IS *. 

> CURRENT i 

DEVICE SA*E 
'* AS NEXT .< 



NO 



* 8* ' 
* 
***• 



*****e4 ********** 

• UPDATE DTF WITH* 

• DEVICE * 

* ATTRIBUTE AND * 

* BLOCK LENGTH * 



IS TAPE *. HO 

NS OR ML .* 

REEL .* 



INDICATE IN 

COMMON DEVICE 

USED IF NS Oft 

NL REEL 



NEXT FILE 
INITIATOR 



E* * 



**•• 

* * 

* C5 * 

* * 
• *** 



>• 



♦ALLOCATE 

DEVICE 



• ■** 
* * 

> 05 *-> 

■ * 

*•♦* 



* Dl • 

* ■ 
***• 



END OF 

FILE 



***** 

*eoi* 

* G3» 



to: phase * 



• CLOSE THIS 
INPUT FILE DTF 



* HI « 

**•« 



HI *, 

, * LAST 
DEVICE 
TABLE 
ENTRY 



YES 



***** 
•003* 
• Bl* 

* * 



• INCREMENT TO 

• NEXT DEVICE 

• TABLE ENTRY 



• •** 

• * 

* B3 * 



•UPDATE NAME IN * 


.* 


SKIP TO •. NO 


* OTF * 


*. 


NEXT FILE .■- 




• * 


* 


> - • 


7 


* • 




*■ «* 


1 


| 




• YES 


**** 






**** 


• • 


J 




1 * * 


• D3 • 


( 




->• HI • 


* * 






• * 


*+*• 


V 




• ••• 




.*. 








63 *. 








.* ♦. 


*•*• 






NO .* IS *. YES 


» • 






- — *. DEVICE A .* — — > 


* B« * 






*. TAPE .* • « 






MODEL * . . * 


**** 






12 *. .* 








• NO 








MODEL 15 
1 








V 








• *. 

H3 *. 
.* *. 








• 


* 




•* IS *. NO 


•INDICATE WHICH • 




*. DEvr 






W HOPPER IN • 










*. DISK .* 


• 


DTP • 




• . •• 


* 


• 




• YES 

1 




• *•* 

->* E4 * 

• * 




V 




• *•* 




■ *■ 




• •« 




J3 *• 




J* *, 




.* *• 




♦ *. 




•* IS FILE *. NO 


♦ * 


HAS •■ 1 
FILE BEEN .*< 
.ALLOCATED.* 


rES 


• ■ .* 


1 + 


1 


• * .* 




*» •• 


1 


*. .* 




*• .* 


V 


* YES 




* NO 


***• 








1 


* * 










• DS • 








V 


* * 








• *•* 


**** 








• * 




V 




* C5 * 




*»***K3 ********** 




• • 




• ■ 




• *•* 




* SET ON * 








• MULTI-VOLUME * 








* INDICATOR • 








• * 
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**♦♦♦ 

♦ 002* 

• HI* 



♦ •*• 

► " 

* 83 < 
i < 

**** 



*♦** 

* 

► B6 * 

► * 



81 ♦ . 

.* INPUT 

RECORD 

COUNTER 



* 1N0ICATE LAST 
•C*LL FOR WPim. 

* (WORKQsL) 



♦ SET SVK TO* 

► AOORESS OF » 

CLOSE FILE 
« LOGIC < 

• * 
*********** 



♦ *** 

• ■ 

• S3 * 

• * 
***♦ 



f 1X030 V 

****«B3»********* 
•SET WPUTL WORK • 

• STRING SWITCH * 

• TO INDICATE • 
♦THIS BLOCK END * 

• OF STRING * 
***************** 



♦POT ADDRESS OF * 
♦FIRST RECORO IN* 
* ARRAY AOORESS • 



«****B5***4**4**4 

• • 
♦SET LOWER START* 
•AOORESS (Kl TO • 

• * 



•INCREMENT K BY * 



***************** 



.♦NO. OF *. 
REC TO BE *. 

seauemceo .< 
=o .• 






05 • . 
K > IMT 



***** 

• 00A* 

* J3* 



•SET INTERVAL OF* 
♦COMPARISON FOR * 
♦ NEXT PASS * 



•****E5**** ****** 
♦SET POINTER OF * 
•NEXT ADDRESS TO* 
♦BE CHECKED (L) * 
* - K * 



****»Q3*«***«**** 

• DECREMENT * 

♦ NUMBER OF • 

* RECOROS TO BE • 
♦SEQUENCED Br l ♦ 






•SET POINTER OF • 
•NEXT AOORESS TO* 
•BE CHECKED ■ L * 



• »»* 
•0O+* 

• B3 ♦-> 

• ♦ < 

• + •♦ 
I1E130 V 

• •♦♦♦^♦♦♦••♦♦•♦i 






#1E1 


10 


. 


♦ . 






H3 


*. 




. ♦ 




YES 


.* 






*. 


tNl 


■ I 




♦ . 








*. 


, 






*, 


• 'no 



• ADO INT TO M 



TOI PHASE * 



COMPUTE INT 
(COMPARE 
INTERVAL) 



• *»* 

♦ i 

♦ BS ■ 

♦ » 



♦ **♦♦ 

♦ 00*« 

♦ Bl* 
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***** 

• 003* 

* J5* 



* • 

• 63 * 



•****ei********** 

• • 

• SET XR2 TO * 
•AODRESS OF LAST* 
•AODRESS CHECKED* 

• • 
a**************** 



S3 *. 

•COMPARE*. 
ARRAY <L) * 
TO ARRAY 

<M> .* 
• • •* 
• • .* 
• YE5 


. NO 






V 

• **•* 

• D03* 

• G5* 



***** 

•002* 
• 01* 



MORE *, 

INPUT 
RECDROS •* 



*«***ai •*****•*< 

* 
* 

•SET INDEX TO 1 



*****D3********* 

* 

* 

• MOVE THE FIELD 



•*F] ******* 

' > 

MODIFY 

COMPARE 

INSTRUCTION 



**G1 ******* 

i * 

MODIFY 

COMPARE 

INSTRUCTION 



**H2******* 

MODIFY * 

COMPARE * 

INSTRUCTION • 



**J] ******* 

i » 

MOO IF Y 

CDHPARE 

INSTRUCTION 



•INCREMENT INDEX* 



TO! DYNAMIC DUMP 
LOADER 
FA/Ol^AJ 



•****E3* ********* 



*************** *i 



•MDVE THE FIELD * 



to: ENO-OF-PASS 

REPORTER 

De/ei/Ai 



*****H3**« ****** 

* 
* 
•MOVE THE FtELO 



V EF/01/A2 



• *** 

* • 

* 83 * 

* • 
**** 



* 85 * 

• * 
**•• 
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***«*ai **•*****«• 

* * 

• * 

•INITIALIZE SQRT« 



• 83 ■ . 



•INCREMENT INPUT* 
•RECORD TOTAL BY* 
• ONE * 



• ••• 

• * 

• * 
**** 



•SET INSTRUCTION* 

• AT #100*5 TO * 

• JUMP • 



• • LOAD SORT * * 

• * ROUTINE • • 

• * * • 



riBi2o 

*****El *••••••*•• 

• DM • 



ft**************** 



* use alternate < 

> collating ' 

> sequence « 

> ROUTINE » 



1B191 

•****De********** 

• USE ALTERNATE * 

• COLLATING 

• SEQUENCE 

• ROUTINE 



•HOVE THE RECORO* 



*<- 



•1B160 
YE5 .*' 



04 *, 
CQ«= 



***** 

•ooe* 

• Kl* 

• * 



8UILDQ *. NO 



• SET INSTRUCTION* 

• AT 01BOIO TO • 

• JUMP • 



SEE SELECT/ 
BUILD ROUTINE 
DIAGRAM IN 
SEC. fl. FIG «-! 



• *•• 

• 002* 

• E2 *-> 



• **• 
•18113 V 

«****F3**««*****« 
•SEL-BU1LD * 



■* DETERMINE IF * 
*REC IS INCLUDE * 
* OR OMIT REC • 



• **• 

I * * 
->♦ El * 

* * 

• *** 



• *. 

61 *. 

*. 
END OF *. YES 


fiei*3 

••**%GZ*** •*••*•• 

• * 

* CLOSE INPUT * 


.* 
• .* 
*. ■* 


• * 

• * 



***** 

• 002* 

• Kl* 

* * 



•****G5 ******••*• 

* * 

* SET CODE TO * 
♦WRITE ONE MORE *<- 

* BLOCK * 



*****02-a2 
•OOl *02-J* 
• H5* 



.* I/O • 


. NO 


*. ERROR 


• •- 


-i 


• • .* 




1 


• ■ .* 




1 


• ■ .* 




V 


* YES 




• *** 








• 








* S3 








• 








**** 


V 






*****J1 ********** 




♦ 


• 




* INDICATE I/O 


• 




* ER( 


(OR 


• 





* 5PT SORTO = L * 



• SET SWS1 FOR 

• END OF FILE 

• CONDITION 



• PERFORM SO«1 



• *••* 
*O02* 

• 81* 

• * 



****K1 ***•**•■*• 



02-M***** 


• *** 


02-J1*001* 


• • 


02-J3* Kl* 


• a* * 


* • 


• * 


• 

1 
< 


♦ *** 



to: PHASE « 
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***** 

*001* 

* MS* 

* * 



Bl 


*• 


B2 


«. 




B3 *. 


.* *. 


»• s*ai • - 




a* 


.* 5REC0 ■ *. yes 


.* HAVE •■ NO 


. • ■neeci » 


*. D .*-— — 


--->•. iNtTlAt . »*- 


»— -*^ 


*. L 


*. .* 


*. SETTING .* 


1 


*. 


*. .* 


*• .* 


1 


• ■ . 


*. .* 


*. .» 


V 


*» ■• 


• NO 


" VES 


***** 


* VE 






**** 




• 001* 


| 






* * 




* H9* 








• ca *-> 




* * 








* * 




• 


1 






9**9 






V 


#19015 " EE/01/A2 


•19112 V 


• 1B< 


*****ci ***♦•**♦♦• 


•*»**C8********** 




C3 *. 


*0.*0S9P * 


* * 




** 


*_.....-— —— — — ».——..-—» 


•BLANK THE BUILD* 




■• WRITE 


• PUT-LOCATE • 


• FIELD • 




*• DNE MDRE 


• RECORD • 


• • 




• * BLOCK 


• • 


• • 







01 


• * 






■ • *. 






.* * 




*es 


*. ERROR 


.* 


».»— i 


• • • • 




[ 


• • ■• 




i 


• . .* 




V 


" NO 




***** 








• 001* 








• KI* 








* * 








* 


V 






* 


• 




* WOVE WINNING 


* 




•RECORD TO WORK 


* 




• eu" 


: er 


• 





HOVE RECORD 



•ZERO KEY FIELD • 



*•*•*»*••******** 



• ** + 

, NO * • 

.* >* B3 ♦ 

* * 

• ••* 




• SET WSTNO. « E • 



V EF/01/A2 

•D.IOS9P • 



•1B100 V EE/01/A2 

**• ••H3********** 
•O.SOS9P • 



***♦**+♦***♦*♦**• 



*•** 
■F**00l* 

• O* • -> 



MSMO 

V 
•*#«K1********* 

• i 

• EXIT * 



***** 
♦001* 
* KI* 

• 4 



***** 

• 00 t* 

• KI* 

• * 



J4 ♦. 








• swat *. 






HAVE 


• . 


YE 5 




INITIAL 




* 1 




SETTING .* 


1 




*. .* 




1 




*. .* 




V 




• NO 




• •*• 




1 




• 


• 






• C2 


• 


V 




• 


• 


***** 




• **4 




• 001 • 








* MS* 









to: Eno-of-pass 
reported 

0A/01/A1 
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tOSlBO 



< B4 * 
•*•* 



• INITIALIZE SORT* 



ALTERNATE , 
•.COLLATING.* 



i • ** C 2* *♦*+**+* * 

USE ALTERNATE • 

COLLATING * 

SEQUENCE + 

ROUTINE * 



•IB600 

*****oi , 

• SUPV 



LOAD SORT 
ROUT INI; 



**** 
■002* 
* Gl ■ 



• **• 

*iai20 

*****Et •*•***•*** 

• DM * 



GET INPUT 
RECORD 



PERMANENT 
, ERROR 



• 00?' 

• C2« 



FND OF 
PILE 



• •■*■ 
•002' 

• Bl> 

• « 



+ CLOSE THIS 
•INPUT FILE OTF 



**«* 






• • 






* Jl *-> 






* • 






*•»* V 




.*. 




J* ■- 




.* LAST *. 




.* OEVICE *. YFS 




». TABLE .* 




+ . ENTRY ■• 


V 


*. .* 


«***« 


■ • •■ 


•002* 


< 


> NO 


• B3* 



* • 

* INCREMENT TO * 

* NEXT OEVICE *■ 

* TABLE ENTRY • 



B3 



• IS THIS • « NO 
ENTRY USED .*---- 1 



***«*84 ********** 
•UPDATE DTP WITH* 

• DEVICE * 

• ATTRIBUTE ANO • 

• BLOCK LENGTH • 



* CS " 
* 

**•* 



SKIP TO 
NEXT FILE 
. REQUEST ■ 



****D3********* 



RESET SKIP FILE 
SWITCH 



IS TAPE 

NS OR NL 

ftEFL 



*****CS*« ******* 
♦ALLOCATE 



♦•**«DA**++****** 

• INDICATE IN • 

• COMMON DEVICE * 

• USEO IS N5 OR * 

• NL REEL * 



V 
♦ + . 



* CURRENT > 
OEVICE SAME 
>. AS NEXT ,■ 



YES 



*0.»OS1M * 

>* NEXT FILE • 

* INITIATOR ■ 



•UP OAT E NAME IN 
• OTF 



, a SKIP TO 
> NEXT FILE 



DEVICE 



**************** 






*****DS** ******** 
•OPEN • 



• FILE * 

• * 
***************** 



->+ EI i 

* i 

*•** 



->• JI ■ 

■ i 

**•• 





.* *« 






**•* 


NO .* 


IS *« 


YES 


* 




*« 


DEVICE A 


* 


>* 


B* 


• 


. TAPE #* 




• 




MODEL 


*■ • * 






•••* 


12 


*. .* 
• NO 

MODEL 


13 







IS 

DEVICF 
, DISK 



ND *XNDICATE WHICH 

> >*CARD HOPPER IN 

• DTF 



* YES 



V 
• •*• 



• E4 < 

i t 

**#• 



IS FILE 
MULTI-VOL 



* YES 



*****K3**** ****** 

• • 

• SET ON * 

• MULTI-VOLUME *- 

• INDICATOR * 

• * 
***************** 



HAS + . 

FILE BEEN . 
.ALLOCATED-* 



* C5 < 

• i 
***• 
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• •••• 

• Gl • 

* a 



***** 
*00I* 
* Jt • 



03-D1**** 
03-Jl*001* 
03- J3* F1 •-> 



•Increment input* 
■RECORD TOTAL BY* 

• DNE * 



•***C ?•••••**•* 

> * 
» EXIT * 

> 4 

•***•**••****•* 

TO! PHASE 4 



* SET SORTQ ■ L 



♦HOVE THE RECORD* 

♦ * 

• * 
•4 ******** ******* 



• SET 5V*1 F0« * 

• END OF FILE * 

• CONDITION * 

• * 



MB19I 

*****E2* ****•***< 

* USE ALTERNATE « 

* COLLATING < 
— >* SEQUENCE < 

* ROUTINE * 



•**++E3*****+**+* 

• • 
♦SET INSTRUCTION* 

• AT #IB0«S TO * 

* JUMP * 

* * 
***************** 



.* BUILDQ *. NO 


». = H 






*. .* 




1 


*. .* 




1 


*. . * 




V 


" yes 




*•** 


***» 






• * 


*003* 






• H6 ♦ 


* F2 •-> 






• • 


* 4 






• *** 


♦ •*• 








■181 13 V 






•SEL/BUILO 


• 




* DETERMINE TF 


• <- 


•RFC IS INCLUDE 


• 




+ OR OMIT RtC 


• 




1 

V 






• **•• 






• 001* 






• EI* 






• 


« 







SEE SELECT/ 
BUILD ROUTINE 
DIAGRAM IN 
SCC. 6, fio ft-5l 



■****FS**** ****** 

* * 

* SET Q CODE TO * 
•>* WRITE ONE MORE * 

* BLOCK * 





V1BI60 -*- 




03 * 




.* 




VES .* 




*. ce#= o 


V 


*. 


• *••• 


*. 


• 00 3* 


*. .* 


• Kl* 


* N 



SET INSTRUCTION* 

AT * I BO 10 TO *- 

JUMP 4 






— > 



I BOOS V EB/01/A2 
•****H5* ********* 
•O.BDSIS • 

* « 

• *< -. 

• PERFORM SORT • I 

• * 
•A*************** 



| 02-F10024 

V 03-B2 HS4 

• *•«• 03-J****i 

• 003* 

• Bl* 

* * 



• «* + * 

• 003* 

• Kl* 
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***** 

• 002* 

* H5* 

• • 



**** 

* * 

* B3 * 

* « 
*♦** 



* 4WB1 *. 

HAVE ». NO 

INITIAL .*■ t 

> SETTING .* 



***** 

• 002* 

* MS* 

• * 



41B0I5 V CF/OI/J 

*****£ |*********4 

*0.*OS9P * 

* PMT-lDCaTE t 

• RECORD i 



.* WRITE 

ONE MORE 
*. BLOCK 



•**•**•*«*••***•* 



• *«* 

* * 

* C2 * 



01 


*. 




* ( 




*, 


VES 


ERROR i 


* 1 


.* 


1 


• •* 




*• •* 


V 


* NO 


***** 






*002* 






* C2* 






* • 



•***D2********* 

HOVF THE RECORD 



• HOVE WINNING • 
•RECORD TO WORK * 

♦ BUFFER • 



E3 *, 

i 

CGfWBF 



Fl *. 

• * < 

. * SRECO = 



***** 

• 002* 

• 61* 

• * 



• *** 

* * 

• >* B3 * 



SET SSTRO = N 



V EF/01/ 
***«*>il ********* 
*0>SD$9P 

• PUT-LOC»TE 
« RECORD 



*****G3********** 


• SET W3TH0 * E * 


> 





#1B100 V EF/01/A2 
*****H3** ******** 
•Q . »DS9P * 



***************** 



*. ERROR .* 

*. .* 


V 


*. «* 


***** 


*. ■• 


• 002* 


• NO 


• C2* 


02-J3***» 




* * 


*00Z* 




* 


* G3 *-> 






* * 






*•*• 






*1B«10 






V 




****K1 ********* 




* * 




• FXIT * 




* * 




to: end-DF-pass 




REPORTED 




r>e/ 


>I/A1 





J3 *. 
EPROR 



***** 

•ooa* 

• C2* 



.* SMSl * 

HAVE 

INITIAL 

. SETTING 



***** 

• 002* 

• HS* 
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'1X000 V 

**B1 ******* 

* SET MONK • 
•FILE BUFFER ■ * 

• « PHASE ENTRY « 
* POINT • 

• • 
*••*•***••• 



11X101 V 

• * 

•INCREMENT INPUT* 
*RECORO TOTAL BY* 

• ONE + 

• * 

i 
V 

.*. »ixiaa .*. 

B3 • ■ B* *. 

.* •. .♦ *. 

.• ENO OF *. YES -• HAS 

*. FILE .• >*. TWEE BEEN 

*. .* •■ SET UP * 



I**** 
• * 

->* KJ * 

• • 
• ••• 



***** 
•002* 
* E3* 



» SET INPUT i 

SUFFER TO 

FOLLOW WORK 

FILE BUFFER 



■1X202 V 

**DI •*••**• 
•SET SWITCH < 
*IF ALTERNATE 
• COLLATING 
* SEQUENCE 



El *- 

• INPUT 
RECORD 
LENGTH 
>X»100' 



ALTERNATE 
COLLATING 
■SEQUENCE ■ 



->• USE ALTERNATE • 

* COLLATING * 

• SEQUENCE RTN * 

******* ft********* 



*****E2 ••••****** 

* BUILD INLINE * 

• HOVE ROUTINE * 
->• FOR INPUT * 

* RECORD. MOVE * 

• FIXED CODE * 



* CO TO 

* SELECT/BUILD 

* RDUTINE 

**************** 



.*. 




•1X113 .*. 


Fl *. 


•••**P2********** 


F3 * 


* WORK *. 


•BUTLO 8 INLINE • 


.* 


RECOno *. NO 


* HOVE ROUTINES • 


yes • • euiLDa 


LENGTH > .* 


>* FOR WORK * 


*. = N 


236 .* 


* RECORO. MOVE • 


*. 


*. .* 


• FIXEO CODE ♦ 


*. 


• * .* 




*. .* 



ffDSlXl V 

•****H1 ****•***•* 
•OPEN • 



• o* *-> 

* * 
*••• 

fixii* ^ 




' 


• DM • 


* • GET INPUT * * 

* • RECORD • • 

* * • * 



G3 

.* 

HI 

TREE 

. SET 

*. 

*• 
i 


*. 
*. 
IS *. YES 




UP •• 

.* 
.* 
* HO 


V 

*•••• 

• 002* 

* E3* 



' INPUT RECORD LENGTH < OR » 
l'100'i THE MOVE ROUTINE HAS 
BEE* OVERLAID BY INLINE MOVE 
ROUTINE FOR INPUT RECORD. IF 
INPUT RECORD LENGTH > X'100', 
PROGRAM GOES TO 0.$OSZA FOR 
MOVE. 



•INCREMENT CORE 

• RECORD COUNTER 

* BY ONE 



.* CORE 

.* RECORD 

>. COUNTER 

*. MAX 



• K3 *-> 



N INVALIO 
COMPLETION 
►. CODE 



•003* 

• AS* 

• • 



***** 
*003* 
• ES* 



• *** 

• * 

• A3 • 



***** 

• 002* 

• At * 

* * 
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* SET UP TREE * 
->* STRUCTURE AND * 
I * LEVEL TABLE * 



* • *•** 
•OOl** * 

* K3** 81 *-> 
****** * 

• *•* 
■1X122 V 

*****B| •••••****< 



• *** 

• * 

• CI *-> 



***• 

* « 

• A3 * 



■♦UPDATE POINTERS" 



***** 
+003* 

• Jl* 

• * 



• **• 

I > 

« J3 ' 

i " 

**** 



* SET SWITCHES 

* FOR CURRENT 

* LEVEL 



• + ♦* 

• 003* 

• Fl *-> 

• • 
*••• 

1X124 v 

*****D1 ********** 

• * 

• set Switches * 
->• for current *« 

• GROUP * 

• * 
***************** 



■• *■ **** 

.* SETTING *. NO * * 

>. UP THEE .♦ >* A3 * 



03-A3 
***** 

• 003* 

• K3* 



I1XMS .*. 








.* •• • 




* 




• * END OF *. NO * 


SET SWITCH 


• 




• * FILE .* >* 

•• •* * 


FIRST T!«E 
THROUGH 






* 


V 


*• •* * 




• 


***** 


*■ •* •• 






*001* 


* VE5 






* Jl* 


**•• 1 






* • 





• 002* 






• E3 


•-> 






• * 






• *** 


V 


* 


X103 


.*. 
E3 • 




■ • 




■ • 


NEW 




*. 


STR 


|NG 



.* *. *0.SOSZA * 

*. YES .* END OF *. ND * ■ • 

.* >*. FILE • •— >*HOVE RECORO TO • 

,* *. .* ^WINNER'S PLACE • 



• *•* 

• • 
■>* Bl * 

* * 

• *** 



4*4**4*3********** 



* UPOATE N00E5 •- 



• • 
•003* 

* E2« 

• •••• 



***** 

• 003* 

• Al* 

• • 



• ••* 

• * 

• Bl • 

• • 
**•» 



.* FINISHED *. NO 

*. CURRENT .* 

*. LEVEL .* 



*••• 

• • 
■>* Dl * 

• * 
*••* 



•****H2*** ******* 



***** 

• 003* 

* Jl* 

• * 



• SET SWITCHES * 








•FOR NEXT LEVEL * 








• * 








* * 




*••* 




1 




• • 




*•*• 




* • 




1 • * 




• *•• 




->• CI • 




I 




* * 








• ••• 








• *• 


• 1XEOF 




J2 *. 








.* + . 


* 


DETERMINE AND 


* 


.* FIRST *. VES 


* 


SAVE SHORT 
BLOCK WORK 


• 






*. THROUGH . * 


* 


SUFFER 


• 


*. .* 
*■ .* 


• 




* 


* NO 
1 




1 




1 
V 




V 




***** 




• ■•*• 




•003* 




• 003* 




* Jl* 




• Jl* 




• * 




• • 
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.* ENO 


OF *„ YES 


->*. FTLF . • ■ 


[ *. .♦ 


• . .* 


*. .• 


* * NO 






• 00?* 




• ^3* 




• ■••* 




•1X136 V SEE NOTE 


• • 


• MOVE RECORD * 


• TNTO WINNER'S • 


* ADDRESS * 


• * 



. El *. 
•• VALID *. 
.♦EOF AMO OUT*. NO 

STRING .* 

*. BITS .* 



• O02* 

• FI* 



***** 

• 0O2* 

• Dl* 

• * 



D2-A4 
***** 
*002* 
• Jl * 



• ••* 




• * 




* M? * . 




* * 1 




• ••* 




•LXWAT V 




•****HS ••*******• 


• IDS 








— >m • 


* • 


• * WAIT 


• * 


• * 


• • 



**** 

■ * 

• A3 ■ 

* * 
• *** 



.* FJNISHEO 
WITH 
*. BLOCK 



•••••B3*********« 
•O.BOS10 * 

• UPDATE BLOCK • 

• POSITION * 

• COUNTERS • 



***** 

• 002* 

• 03* 

• * 



WORK 

FILE TO 

SMALL 



*****03*** ******* 



SET BLOCK 
POINTERS 



***** 
*003* 

• AS* #1XERI 
* * **«**A9********** 
* * • 
[ *I/Q ERROR* SET « 
>*IOERRQ ^ X'01' * 

• • 
« • 

• *♦* 

• * 

• as * — -. 

• • 

• •*• 

•1XER2 V 

•a* *«&3** ******** 

• * 
•WORK FILE DRIVE* 

• ERROR. SET * 

*IOERRQ * X>02' • 

• -« 

■1XER3 

•****C5********** 

• • 

• WORK FILE TOO * 
>« SMALL. SET * 

• TMLER « X'0* t * 



***** Ofi ********** 

• SET EftftO b * 

• X'OO'. * 

• INCREMENT •- 
•TERMINAL ERROR • 

• COUNTER * 







*• V 

• ••• 


• *•• 




• • 


• 001* 




* F5* 


• K3 * i 




• • 


• • 1 




• ••* 


• •*• V 






• I XENO . * • 






E5 *. 






.* * 






.* ANY 


* 


. YES 


*. BLOCKS 




■ •———» 


•. WRITTEN 


, • 




*. .* 




i 


*. .* 




V 


* NO 




***• 


• ••* 






• * 


• • 






* H2* 


• F5 *-> 






• • 


• * 






• •** 


• ••• 








V 






•CLOSE 




• 


* *CLOSE INPUT* 


• 


• • FILE 


* 


* 


* * 


* 


* 



.* * RECS ••NO *SET UP TREE FOR 

. IN CORE > •• >* NEW STRING 

*.IN BLOCKS.* • 

• • .* * 

*. .* •••****•*•*•*••* 



• RESET BLOCK 

• POINTERS FOR 

• NEW STRING 



*****g5********** 

• * 

• HOVE SUMMARY • 
•TABLE TO FOLLOW* 

• COMMON * 

• • 

• ••ft*******.****** 



• ***HS********* 
■ l 

' EXIT * 



toi o.ibSiz 



flXDM 
*OM 



* • WRITE THE * * 

* * BLOCK * * 

* * * • 



IF MRECl < OR • 256. THE HOVE 
ROUTINE HAS BEEN OVERLAID HlTH 
INLINE NOVF ROUTINES FOR WORK 
RECORD. IF WRECL > 256. PROGRAM 
GOES TO 0.*OSZA FOR MOVE. 



VIX16B V SEE NOTF. 



• BS • 

• • 
*••* 



l A3 * 

• ••• 
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ENTRY * 

*************** 

FROM: 1DSILO 



• *** 

* * 

* B2 * 



***• 

I * 

' B* * 

> * 

***• 



1XBO0 V 

*****bi ********** 



* SET UP INPUT 

• FILE DTF 



*1X820 



ND .* ALTSEO 
*. SPECIFIED 



•SET UP CODE FOR* 
• ALTSEO * 



***************** 



•1X950 

*****E I ********** 

• • 

♦ ADJUST CODE FOP* 

* SEQUENCE • 

• SPECIFIED * 

* * 
***************** 



1X670 V 

*****?! ********** 



SET UP MOVE 
ROUTINE 



***************** 



1X700 V 

*****G1 ********** 



•OPEN TNPUT FILE* 
* OTF • 



,* READ 

ERROR 



*****B3* ********* 



♦ INDICATE READ 
->* ERROR 



*003* 
• 05* 



ENO 


OF *. NO 


PILE .* -, 


-* V 


• • * ***** 


*. .* *002* 


* YES * B3* 



*****D3 ********** 



* CLOSE 


THIS * 


♦INPUT FILE DTF * 


* * 


* • 


**** 




+00 2* 




* Fl *-> 




* * 




**** V 


**. 


E2 *. 


.* LAST *. 


.* DEVICE *. YES 


>*• TABLE .+ 


*. EN1 


rRY ** 



* ****F2********** 

* * 

* INCREMENT TO * 

* NEXT DEVICE * 

* TABLE ENTRY * 

* * 
A**************** 



NO .* IS THIS 
■"*. ENTRY USED 



*****E3 ********** 



•SET END-OF-FILE* 
->+ SWITCH * 



•+*****•***•***** 



F3 *. 

* i 

INITIAL- 
IZATION 
DONE 



■* IS *. 




CURRENT *. NO 




DEVICE SAME .* 


._-__, 


. AS NEXT .* 


V 


*. .* 


***** 


* ■ ■* 


•002* 


• YES 


• EI* 



• UPDATE NAME IN * 

* OTF • 



DA *. 

• * < 

no .* rs 

*. DEVICE A 

* . T APE 
MOO EL *. ,i 

12 *. .* 

NO 



**■ 



MODEL 15 



IS 

DEVICE A 
DISK 



V 

***** 

*ooz* 

• Bl* 

* * 



*****ES* ********* 

• * 

♦ INDICATE WHICH • 
->*CARD HOPPER IN *- 

* DTF • 

* a 
ft**************** 



***** 
•002* 

• ei* 



no I 
» — - — >* 



***** 

*003* 
* Fl* 



IS FILE 
MULT I -VOL 



. NO 

.* >« 

A 



♦ 00 2* 

* C4 + 



*«.***G« ********** 

* • 

* SET ON * 

* MULT I -VOLUME *■ 

* INDICATOR * 



Ffi *. 

.* *. 

.* MAS *, 

■ FILE BEEN , 
•-ALLOCATED.* 



***** 
•002* 
• C2* 



***** 
*002* 
■ 02* 



• YES 



* INITIALIZE * 

* PARAMETERS TO * 

* BUILO NODES * 

* * 
***************** 



02-J3**** 
02-E4*002* 
03-E1* D2 +-> 



SKIP TO 

NEXT FILE 

REQUEST . 



***** 
*O02* 
* El* 



* * GET A • * 

* * RECORD * * 

* * * * 
***************** 



**** 

* * 

* 82 * 

* * 
**** 



♦RESET SKIP FILE* 
• SWITCH • 



***************** 



• Chart AG (Part I of 3). Phase IX - 0.$DS1X - (Model 12, Model 15) 



Program Organization 3-6 1 



Licensed Material-Property of IBM 



***** 

• 001* 

• D4* 



*001* 
* C2* 

* • 



*****B I •**•*••••• 
•UPDATE DTF WITH* 

• DEVICE * 

• ATTPIBUTE AND • 

• BLOCK LENGTH * 



1X320 V 

*****B3*** *•****< 



*0D ONE TO 
RECQRO COUNT 



***** 
♦001 • 

* FS* 



IS TAPE 

N5 0° NL 

REEL 



****+C2********* 
•ALLOCATE 



* DEVICE 

* 
+********•*•**•* 



#1X330 

•****C3*********« 

* MOVE INPUT * 

* RECORD TO * 

• SELECT/BUI LO * 

• AREA • 



* ****D] ****♦***! 
> INDICATE IN 

* COMMON DP VICE 

* USED IS NS OR 

* ML PEFL 



ei-a«***« 

Ol-FS*001* 
* HZ i 



**•*♦£!***•***♦♦* 
iO.IOSlK • 



NEXT FILE 
INI TIATO* 



***************** 



SKIP TO 
NEXT FILE 



***** 
■0C1* 
• E2* 



• **#©2< 
OPEN 



#1X350 V 

*****03**** ****** 
•INITIALIZE DATA* 

* PORTION OF » 

* BUILD AREA TO * 

* X«40» • 



V 

***** 
•001* 

* Jl* 



* * 
>00l> 
k F5' 



#1X365 V 

•****E 3* •****•**• 

* INITIALIZE • 

* CONTROL FIELD * 

* POPTION OF • 

* BUILD AREA TO * 

* X»00 f * 
***************** 



#1X375 


>• • 




F3 *. 


.* 


NO .* 


ALTSEO 


*. 


SPECIFIED 



#1X360 V 

*****G3» ** ******* 
•CALL ALTERNATE * 

* COLLATING ♦ 

* SEOUENCE * 

* ROUTINE * 

* (o.»osec» * 

***************** 



• •*• 

* B5 ' 

* ' 
**•* 



'**8S' 



VES 



INITIAL- 
IZATION 
DONE 



t VES 



ENO OF 
FILE 



• LOGICAL OROER 
•SORT STRUCTURE 



***** 
•003* 

♦ Fl* 



• ♦*♦ 

I ■ 

. C5 i 



♦*** 

#1X140 

•••■*C 5* ***•***< 



* FIND A WINNER * 



ADO ONE TO 
RECORD COUNT 



*SET UP MOVE TO 
« OUTPUT BUFFeR 



E4 *. 

.♦ROOM IN*. 
.* WORK AREA 
'. FOR MORE 
*. REC 



.* WAIT 


*. 


NO 


*. NEEDED 


• 




• « 


• 


] 


• * .* 






*• >* 




V 


* YES 




**•*! 


**** 






• 003 


*003* 






• 01 « 


• B5 *-> 






* * 


* * 






• 


*■** 








210 V 







* INITIALIZE • 

* NOOES OF SORT • 

* STRUCTURE • 



* WAIT UNTIL 
♦PREVIOUS RECORO' 

• IS WRITTEN i 



#1X733 



* WILD NODES 



SEE SELECT/ 

BUILD ROUTINE 
DIAGRAM IN 
SEC. 6, FIG 5-6 



#1X390 V 

*****H3 ********** 
• SEL/BUILO * 



->*IDEWTIFY RECORD* 
• TVPE • 



03-G3**** 
03-04*00 3* 
* K2 « 



• *•* 
#1X190 V 

*****H4**« ******* 



V 
***** 
•003* 

* ai* 



SET UP SORT 

STRUCTURE 



• 1XER3 V 

*****H5* ***•***< 



• INDICATE WORK 
*FILE TOO SMALL 



1 














1 

V 
















***** 


V 






V 






•003* 


.*. 




#1X 






* D5* 


J3 *. 






J & *« 






* * 


■ 






. * NEW * . 




**** 


• 


WORK 


*♦ 


NO 


.* STRING * 


NO 


* * 




RECORD 


a 


*-__.» 


*. BEING 


♦ -- — 


->* CS * 




BUILT 


1* 


1 


*. STARTED .* 




* * 




'. •* 






♦ . ♦♦ 




**** 




*■ •* 




V 


*• <* 








* >TES 

1 




***** 

♦ 001* 

* Jl* 


* YES 

1 








V 




* * 


V 








**•* 




* 


**** 








* * 






* * 








* 84 * 






• B5 * 








* * 






* * 








• *** 






*i 


>*• 









Chart AG (Part 2 of 3). Phase IX - O.SDS1X - (Model 12, Model 15) 



3-62 



Licensed Material-Property of IBM 



4002* 
• G5* 

• • 



WRITE 

ERROR 



VES 4INDICATE WRITE 
i ->• ERROR 



->♦ OS 



*tX2?0 


k. 






CI • « 






• • •■ 






.4 END DF • 


. VES 


• . PASS 


.♦- 


— — i 


• - .* 




1 


4. .4 




1 


4. ■• 




V 


* MO 




•*•* 


•002' M s 






• • 






• C9 • 


:es ••--' 






• • 


••• 








*1X?40 V 






* 


* 




• MQVF WINNER TO 


* 




• OUTPUT BUFFER 


• 




• 


• 




* 


* 





**•* 

; B3 ; 

N 1 
4444 



SET BLOCK 
INOICATOR 
($STRQ1 



SET UP OUTPUT 
FILE t>TF 



* WRITE RECOROS ♦ 



• B4 4 






• • 




• *•* 
1 




V 




*IXS40 • •• 


fflX600 **. 


B4 4. 


as *■ 


.4 *. 


.* *. 


.4 WORE *. NO .* WAIT *. VES 


4. .* 


*. .* 1 


• • .* 


*• .* 1 


4. ■• 


*. .* V 


• VES 


* NO •*•*_• 




• 4** 


• 002* 


1 


• * 


4F5 • 


V 


• C3 •-> 


• • 


:»s 


• • 
• 4** 


• 


•H* * 


V 


• * 


••••*CS4***«»**«4 


• 


•CLOSE • 




• CLOSE INPUT ♦ 




• FILE • 

• * 




02-H5**4* 






•001* 






• B3 4-> 






• • 






• 4*4 






V 




•••*DS****4***« 




• * 




• EXIT 4 




• 4 




TOI O.COSlZ 




DB/0I/A1 



END OF •• NO 




FILE .4 


^ 


t* 


V 


.4 


• •*•* 


■ . .4 


•001* 



5001* # J 



FINO FIRST 

LEVEL NODE OF 
WINNER 



» SET WAIT • 
♦REQUIRED SWITCH* 
• (WRCCQ) • 



•POINT WAEC» TO • 

2 RIGHTMOST • 
BUFFER POSITION* 



S3 •• 

■4 MORE • ■ 
.4REC0R05 IN 4. VES 

CURRENT .* 

4. STRING .4 



SET BLOCK 

INOICATOR 

(9STR0I 



•sv 



»• MORE 4, 

.•RECORDS IN • < 

THIS 
*. STRING •• 



* B3 • 

♦ • 
*4** 



J 2 

• 4 


4. 
*• 




• 




• 


.• WORK 4. 


VES 


4 


SET OFF NODE • 


>4. BuFFFB FULL • 


•— — — ■» 


• FLAGS 


TO BEGIN • 


«. .♦ 


1 


• 


NF* 


STRING • 


4. .4 

4. *• 

4 NO 


J 


• 




• 


'•444 












4 4 












4 B3 4 






1 






* 4 






V 






• *•* 




• 


• *•• 

4 



•****K£***44**4«* 
•POINT VRECW TO 4 
♦NEXT AVA1LAOLE • 
• POSITION IN 4 
4 BUFFER 4 



•••4* 

4002* 

4H4 • 

* * 
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SOS 2 AC 



ENTRY 
1 



* B3 * 

* * 
*** + 



*****ai ********** 

* SET OROER OF • 

* MERGE FOR THIS * 

* PASS [OMP> TO * 

* DM * 





t**Cl****4 






* 






* 


* 


DETERMINE 


• 


♦AODRESS OF 


WORK* 


* 


BLOCKS 




* 


• 






* 



DETERMINE 

OUTPUT SLOCK 

ADDRESS 



*****E1 ****«**•** 

* DETERMINE * 

* ADORE SSES OF * 
•NEXTCB* NEXTDB.* 

* AND VARIABLE • 

* MOVE ROUTINES * 
***************** 



*2A020 

*****F1 



INCREMENT PASS 
NUMBER BY ONE 



********** ******* 



*****Gi ********** 

• SET WPUTL AND i 

• WGETL MASTER * 

• SWITCHES TD F * 
•(FIRST CALL FORI 

• PASS) < 



*+B3******* 

* i 

• SET SW*21 

* FOR OM STR#T 

* CONDITION 

* * 
*********** 



**C3******* 
i SET 5M22 * 

FOR NORMAL ' 
MERGING 
CONDITION < 
> * 

*********** 



**** 
02-03*00 2 • 

• Ml *-> 



*2A040 V EO/01 /Al 
*****03********** 
*0.»0S9G • 

•GET ADDRESS OF * 
•NEXT RECORO IN * 
•STRING :SET OMS • 



F3 *. 
OMS » i 



V 
***** 
*O0 3* 
• 81* 



E* 


* . 




E5 


* t 




.+ SW»20 *. 




.* 5WBZ0 *. 




.* SET FOR * 


NO 


.* SET POP *■ 


NO 


+. START NEW i 


*■"■"■* 


>«, e«*RDR . 




•.PASS COND.* 




*. COND . ♦ 




*. •• 




*• <* 


1 


** • * 




• . *• 


V 


• YES 




• YES 


***** 


• *** 






***• 




*0C2" 


*002* 






03-82*003« 




• J2* 


• CI •-> 






* J3 •-> 




* * 


* * 






* * 




* 


• *•■ 






**** 






V 




V2A200 V 




• v* v*F4* ********* 


**«**FS********* 




* SET WPUTL 


• 


• 




* WASTER SWITCH 


* 


*tNOICATE ERROR 




•TO L (LAST CALL* 


• (ERR3HQ) 




* THIS PASS) 


• 


« 




• 




* 


****•*•••••***•• 





EF/01/A2 

{MODEL 6 OR 10) 

EP/01/A2 

(MODEL 12 DR MDOEL 15 1 



G2 *. 
.* SWB21 < 

SET FOR 
QMS*1 
. COND 



•0.SDS9P 







V 

***** 


• ■ .* 

• NO 


• *** 




*002* 






• 002* 




• Fl* 






• E3 •-> 




* * 






• * 




• 






• *** 










«2AQ33 V 


•2A100 


V 


••HI******* 




•*H2******* 


• S6T SWB20 * 


• 


SET SWS23 • 


* FOR CASE * 


•FOR START NEW* 


■ WHERE DHS*C * 


* 


STRING 


•WHEN STARTING* 


* 


CONDITION • 


•NEW STRING * 


* 


• 
•**•**•*•** 



NO ** SWV21 

- — *. SET FOR OM 
* . STR#T , 



♦+H3******* 
' SET SWA25 ■ 
FOR RETURN 
AFTER GOOD 

WRITE 
■ CONDITION i 



•LOCAT POSITION • 
•FDR NFXT RECORD* 



****GS********* 
•SYSLOG * 



*************** 



V 
EXIT 



TOi END-0F-PAS5 REPORTER 

OA/01/A1 (MODEL 6 OR 101 
DB/01/A1 (MODEL 12 OR MOOEL 15 1 



* S3 * 

* 4 
**** 



•2A096 V 

** J3******* 

* SET SWB20 • 

♦FOR PUT AFTER' 

* GOOD GET 

• CONDITION * 



V 
***** 
♦002* 
• Bl* 
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• **• • 
•001 * 
■ J3- 



* *B1 ** • *•*■ 

t 

POO OMS I 
CONDITION 



EE/01/A2 
(MODEL 6 OR 10) 
FF/01/A2 

V2A387 V (MODEL 12 DP MODEL 151 
• **«<*B3********** 
*0.»OS9P * 



WRITE THE * 
OUTPUT BLOCK ■ 



**C1 ******* 
* i 

* SET Sw$?2 
i f-ry F.BROR 

• CONDITION 



C3 *. 

.* swaa^ *. 

-•SET FOR R£T», 
'. AFTER GOOD 
* . BfilTE . * 



**D1 ******* 

FOR WRITE 

LAST PFCnQD 

CONOIT ION 



* *= 1 ** * * fc* * 

* s^Tswa?* ■ 

• FnP GFT AFT"* 

GOOD out 

* CONDITION * 






Ftr /C I /A 2 

IMDOFL 6 DR 1C ) 

C F/01/A2 

(MODFl IS OP MOOEL IS) 



D3 


«. 




* S*©2 5 *. 




SET FOP 


*. W 


START NEW 


< *-..--^.-.- > 


STPIN5 


* V 


• • . * 


**** 


*• ■* 


•001 


* YES 


- D3 



<***E3******* + * 

SET INQ=N 

(STAPT NEW 

STRING - SAME 

BASS) 



• 001 

* HI > 



LOCATF NFXT 
AVAILABLE 



MOV'" W1NNFR * 

PFCORO INTO * 

OUTPUT F1LOCK * 



H2 *. 

LAST 
RECORD 



* D3* 



**** 

*oo t* 

* F5 *-> 



**** 

*****j 2***** ***** 



* INOI CATE LAST * 
*BL0CK OF STRING* 

*TO BE PROCESSED* 



Chart BA (Part 2 of 3). Phase 2A - 0.$DS2A - (All Models) 



Program Organization 3-65 



Licensed Material-Property of IBM 



***** 

*001* 
* F3* 



« SNI22 4 

SET FOR 

NORMAL 

MERGE 



#2*000 V 

• •CI ******* 
• SET 3W»20 < 

* FOB LOGIC 
* ERROR 

• CONOITTON 



* — >*, 



• •• 
BZ *. 

. • 3W»2Z •■ 
I SET FO« ». ves 

MERGE AFTER . • . 

I.GOOO GET •• 1 



*. 



SET 3W*21 
FOH 0M5 ■ 1 

CONDITION 



**E1 ******* 

* SET SWSZ2 * 

• FOR MERGE < 
•AFTER GOOD GET 

* CONDITION t 

• * 
*********** 



•*T| ******* 

* SET 3W*23 « 

> FOR LAST 
RECORD WRITE 

> BLOCK 

* CONOITTON ' 



**G1******* 

• SET SWS24 • 

•FOR GET AFTER* 

' GOOD PUT i 

* CONDITION * 



**Hl******* 

• SET SWW23 * 

•FOB GET AFTER* 

I GOOO WRITE 1 

* CONDITION * 



***** 
•OOI* 
• FS* 



*****B3**** ****** 


* • 


•SET J EQUAL TO * 


• I • 


• • 


• * 


• *•* 




• * 




• C3 *-> 




• * 




• •** V 



C3 *- 

.* ANY *. 
•HECOROS IN •. 
TM 1 S - 

♦ . SLOCK .* 



.•.SEE MOTE 



*. YESV 






V2A06S V 

•****F3********** 

• SET WINNER • 
•INDEX EOUAL TO • 

• J (NEW WINNER • 

• THIS PASSI • 

• • 
***+*•**#*»****** 



INCREMENT J BY 



IF A DESCENDING 
SEQUENCE IS SPECIFIED. 
THIS BLOCK CHECKS 
TO SEE IF KEYI I) 
KEVIJ). 



• SFT WINNER i 
•INDEX (11 EQU»L< 

• TO < 



**•• 

• * 

• «3 * 



WINNER 


*• 


NO 




NOEX « 




• 


1 


.* 




V 


.* 






***** 


*. •• 






•002* 


• YES 

1 






♦ Fl* 

• • 
• 


V 








•*••* 








•001* 








• F5* 
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•*** 

* ■ 

* A3 * 

***• 



ENTRY i 
i * 

•***•**•****•*• 



*****ei ***••**■■• 

* LOAD REQUIRED ■ 

• PHASE 5 SORT * 

* MDDL4.ES INTO • 

• STORAGE • 



* PLACE PHASE 3 ■ 

* ENTRY POINTS • 

* INTO COMMON * 



•***01 ********* 

OREC* « 



.* 


*. YES 


*. OP»P<STR»T -• 


*. .« 


*. .* 


*■ ■• 


* NO 



• 


* 


* 


* 


■>• ERR2H0 =X'OD- 


* 


a 


• 


• 


• 



*••• 

• * 

• 04 • -> 



•SET OMP= NUMBER* 
•OF STRINGS FOR • 
* LAST PASS • 



*************** 
TOt PHASE 3S 
CC/01/A1 



****03********< 
► EXIT 



SI *. 

► i 

OM^STP* 

*. .' 
*. .* 

NO 



*•*• 

• * 

• «♦ • 

• * 
• ••* 






PASSMPASSa 

1 = wreC»*0 



*•*• 

• * 

* A3 * 
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* * 

* S3 * 

* * 



ESTABLISH 

Aooness of 

F IBST BUFFER 



• SET OUTPUT DTF + 
• * TO HVP + 
•OTFATR-l*X' 10' + 



"****03 **+***++** 



• SET WGETL 

• MASTER SWITCH 

• TO FIRST CALL 



¥ »m *••• 

*. YES * * 

OMP » 1 .* >* B3 * 



SET SW030 
FJR ERROR 

CONDITION 



• 93 * 

• * 
**** 



•*G3******* 
' SET SM31 * 

FOR ONE ' 

STRING 
REMAINING ' 



*•••• 

• 002* 

* 82* 
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***** 
■001* 
• G3* 



**82******* 
■ i 

SET SU»32 

FOR NORMAL 

M^RGE 



*3AC00 V EO/OI/A1 

*****C 2** ******** 
*0-*0S9G * 

* * 

•GET RECORD FROM* 

* OLD STRING • 

* * 
ft**************** 



no . * sw*3i a 

--*. ONF STRING 



SET SW930 

TO WRITE 

RECORD 



* COMPARE 
OM5 TO 1 



*. .* 
* < 
**** I 

*0C3* 

* B3 *-> 

• * | 
**** V 

♦ ** oaerr 

E2 *. 

,* SWB30 *. ****E3********* 

.* SET FOR *. ERRO« *SV«_OG * 

*. ERROR OR END ** >* -* 

•-OF LOGIC .* * EXIT * 

*. .* *************** 



SW»32 = 
NORMAL 

MERGE 



f 3AF 00 



05 


• . 




.* SMS32 *. 




•SET FOR QMS*. 


NO 


< 1 


• — ——i 


*. CONDITION.* 


1 


*• .* 


1 


• ■ .* 


V 


" YES 


***** 






♦003* 






• C5» 



SET SW330 
FOR ERROR 



* END OF 
LOGIC 



t«Fl ******* 

' SET 5V33 1 * 

TO PLACF 

RECORD ON 

OUTPUT F1LF 



•3AH09 

• close' 



• * CLOSE * * 

• *OUTPUT FILE* * 

• * * • 



SET SVB31 
' FOR ONE 
STRTMG LEFT 



SET 5*332 
FOR ERROR 



*****G2« 

•SYSLOG 



**G4******* 
k SET SWS>32 « 
FOR SELECT 

RECORD FOR 
MERGE 



*003* 
• C3* 



*****M2* ********* 
•CLOSE * 



• *CLOSE WORK * 

* - FILE * 



03ADQO V 

*****+44* ******** 



SET I * -16 



* * * 

•LOG MESSAGE* * 



SET J = * 



***** 
*003« 
* 81- 



.**K2********* 
EXIT i 



TO: ENO-OF-PASS REPORTER 

DA/01 /A 1 (MODEL 6 OR 10) 
DB/Ol/AI (MODEL 12 OR MODEL 15 J 
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• •••• 

• 002* 

• J** 



• i 

• ••• 



• *** 

* B5 • 

• • 

• ••• 



It ••*••••••• 



••••••••••••••*•• 



•ADO J TO XR2 TO* 

• POIMT AT • 

* CURRENT ARRAY * 



»• 1 = •. YES 


*. 1+16 .*- 


— -* 


*. ■ • 


1 


• ■ • • 




*. .• 


V 


* NO 


• ••*• 


• •*• 


• 002* 


0S-Dl«0O2* 


• E2* 


• Gl • -> 


• * 


• • 


• 


• ••• \ 




»3*eoe v 




•••••C3 *••#**•••• 




• • 




• PUT WINNER IN * 




• OUTPUT ARC* * 




• * 




• • 





♦WftCCH - WRECH+1»< 



• •** 

• • 

• ••• 

»3AHI0 V 

•••••C5* ••*••*•*• 



•TERMINAL ERROR • 

• • 



WES .* COMPARE 

*. K£r FIELDS. 

• .* WINNER < 



SET I * J 






•INCREMENT J 6V 



Jl •, 

• * •■ 

,* OMP > •. YES 

COUNT •♦ 1 

*. .* 

*. ■• 

*. .* v 

* NO • *♦* 

* ei • 
v • • 

*•** •••* 

• • 

• OS • 

• • 
• ♦•• 



♦•••*E3 ••**••»•• 
•DROP KEY FIELD 



• « • • 

• *L0G MESSAGE* • 

• • • • 



•♦••E5*»»****** 
•SUPV ■ 



P3AE20 V 

•••*«F3«**«****« 
•DN_ 

• ■ WRITE • 

• • RECORD ON * 

• * FILE • 



,* >• B6 * 



••***•••••*•••*• 



»SYSL0« 

• E*IT 
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LI ♦ ♦*•« 

ENTRV 



• •** 

■ I 

> ■ 

• *** 

l<- 



*TTROI(3J=l 



* SET JUMPS FOB 

* OVERFLOW BYTE 

»* to x<»o>: 

* OVERFLOW BYTE 
*W!LL BE 1MSERT 

**************** 



•****C* ****••**• 



**************** 



♦ **• 
• E4 •-> 



•****E1 ***•***••* 
•HOVE KEVLENGTH • 

• INTO COMPARe ■ 

* KEY * 

* INSTRUCTIONS • 

• • 
***************** 



•INITIALIZE OTF * 

• AMD HOVE INST * 

• TO CONTAIN • 

• ADDRESS OF * 
♦SUMMARIZED AREA* 
***************** 



*OBUFB - BUFB I * 



>• 



T OUTPUT F1LI 
OTF TO MVF 
•DTPATR-I«X«10 f 



•*«*«G1 ********** 

• INITIALIZE A • 

• (TO) ANO A • 

• (LENGTH I FOR * 

• HOVE ROUTINE « 

• 4 
***************** 



ESTABLISH 

ADDRESS OF 

FIRST BUFFER 



SET WGETL 
MASTER SWITCH 
TO FIRST CALL 



COUMT = 



SET SWB30 
FOR ERROR 
CONDITION 



Kl *. 
,* 
,* COHP ■ 



• SET SWB31 

FOR ONE 

STRING 

REMAINING 



• *•*• 

| • E* • 

V • • 

•*** *•*• 

• * 

• P* * 

• • 



***** 

• OOZ* 

• 82* 

* * 



Chart CC (Part 1 of 4). Phase 3S - O.SDS3S - (All Models) 



Program Organization 3-71 



Licensed Material-Property of IBM 



***** 

*001* 

* K4* 



**B2******* 
* i 

SET S**»32 

FOP NORMAL 

MERGE 



04-B2**** 
04-64*003* 
04-0** 84 *-> 
04-F4* * 

04-E5**** 
#3ACC0 



V ED/01 /Al 



*****C2*+***< 
*0.SDS9G 



• GET RECORD FROM* 

* OLO STRING * 



<**********••*** 



02 



*********** 



**F 1 ******* 

> SET Sw»31 « 

TO PLACE 

RECORD ON 

OUTPUT FILE 



NO 


.* SV831 = 
• ONE STRING 

*. 


*. 


= .* COMPARE *. 


> 




1 


* 


* • • * 






1 


*. •* 




*. .* 






V 


*. .* 




*. .* 






*** a 


■ VES 




* < 






003* 






**** 1 






B3* 






•003* 






* * 






* KI *-> 






* 






* * 1 

**•* V 






#3AG00 




• *» 




V3AERR 




**€i******* 




E2 *. 








* 


* 


.* SW630 *. 




****E 3* ******** 




* SET SM>30 


• 


. * SET FOR *. 


ERROR 


♦SVSLOfi 


• 


TO WRITE 


* 


*. ERROR OR END . 


*______ 


— — > * — -. — — — j- — -„-_- — — — _! 




* RECORD 


• 


*.CF LOGIC .* 




* EXIT i 




* 


• 


*. •* 




*************** 



5WB32 . 

NORMAL 

MERGF 



03 *. 
.* SW»32 *. 
p*SCT FOR QMS*. NO 
< 1 .* 

*- CONDITION,* 

*■ .* 

*. .* 

* VES 



***** 
*003* 
* CS* 



* END OF LOGIC 



F3AH0B V 

*****F2*** ******* 
■CLOSE * 

* * 

* * CLOSE * * 

* *OUTPUT FILE* * 



SET SWB30 
FOR ERROR 



********* 



**F4******* 

: 4 

SET SWB31 

FOR ONE 
STRING LEFT 



■*G1 ******* 



*********** 



***** 

• 003* 

* B3* 



*****G24 

•SVSLDG 



* *LOG MESSAGE* * 



*********** 



' SET SW032 
FOR SELECT 
RECORD FOR 

MERGE 



*a***H 2*** ******* 
•CLOSE * 



•3ADO0 



SET I = -16 



*****J2 ********** 
*SVSL0G * 

* * * * 

* *LOG MESSAGE* • 



****J4******i 
SET J = 



***** 
*003* 

* 81* 

* * 



****K2********* 
i * 

' EXIT i 



to: eno-of-pass reporter 

DA/01 /Al (MODEL 6 OR 101 
DBV01/A1 <MOOEL 12 OR MODEL 15J 



Chart CC (Part 2 of 4). Phase 3S - 0.SDS3S - (All Models) 



3-72 



Licensed Material-Property of IBM 



• ••*• 

• 002* 

• J4* 



02-D1 
***** 

♦ 002* 

♦ 61* 



**** 

• * 

♦ QS ' 



■ * 81 * 

• • 

♦ *•• 



•ADO J TO KP2 TO* 

• POINT AT * 

• CURRENT ARRAY * 

• ♦ 
•**«***••*••***•• 



El *. 

► < 

t ~ -16 



♦ COMPARE 

KEY FIELDS. 
*.A WINNER . 



♦ NO 
< 



* SET I » J 
*•*••*******•*** 



•***H1 •**••**** 
INCREMENT J BY 



*. *•*• 

OMP > •. YFS • • 

COUNT .• >* 91 * 



**** 

• 00** 

• 02 •-> 



•****e* ♦**♦•* 




B5 


*, 


• 


• 


■ • ♦. 


♦ 


• 


WO .♦ ENO OF *. 


• W*ECH = WRECH+1«< 


*. EXTENT 


• 


• 


• • ■ ♦ 


■ 


• 


• » .* 
*. .♦ 
* YES 










• •*• 








•002* 




V 




• D5 *-> 




***** 




• * 




♦ 002« 




• •*• 




• C2« 




V3AH10 V 


* * 




i«***CS»******** 



•****03********* 
♦DROP KEY FIELD 



• TERMINAL EROO" 



♦ * • • 

* *LOC MESSAGE* • 

• • * ♦ 



•3AE2Q 

•****E3********** 

• DM • 
* * 

• ♦ WRITE <* • 

• • RECORD ON * • 

• ♦ FILE ♦ • 
•*•**•**••*****•• 



****E5* ******** 
♦SUPV « 

* EXIT i 



• ••* 

• \ 
->* 85 • 

• * 

♦ ••♦ 



* SET ERROR • 

• SWITCH IN * 
•COMMON (IOERRO)* 



1416 .*- 




.« 


V 


.* 


***** 


♦ . .* 


*oo** 


• YES 


• Bl* 




■ • 




• 


\l 




• *••• 




• 002* 




• E2* 




• • 
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• *•• 

• • 

• 03 • 

• * 
**•• 



f3AF02 .*. 

ei •. 

.• FIRST 

• • WINNER 

• . RE CORD 

• • FQUNO 



•****C I *•*•*••*** 
•HOVE ME* RECORD* 

• AOORESS INTO * 
•COMPARE TNSTR: * 

• WRECf - WRECf * 

• *1 • 



*****B2* ********* 

• MOVE FIRST • 

• RECORD TO • 
->*recsom: WREC* >• 

• WREC» 4 1 * 

• * 
***************** 



***** 

• 002* 

• C2* 





*. ves .* 


• .NO 


CNT « • * ->». OVERFLOW .* -^ 


.• *. SWITCH OH.* V 


'• . • *. ,• ••••• 


•• ■• ». .* *002* 


• no • ves • ca* 



•**»*C3* ********* 

• CNT > cmt-i: • 
•COMPUTE AODR€SS* 
•OF NEXT SUMMARY* 

• FIELD • 



•*•••*•*••****•«• 






• V£S 



*****El ********** 

• MOVE AOORESS * 

• FROM COMPARE • 

• INST TO ADO • 
•INSTRUCTION FOR* 

• SUMMARIZING * 
••*•••••*****•••• 



*****F1 ********** 

• * 

• • 

• CNT = FLDCNT • 

• • 

• * 
***************** 



.•DATA TO*. 



*****q 2*** ******* 
•MOVE ADDRESS OF* 
•NEW RECORO INTO* 
->* MOVE ROUTINE • 
•PARAMETER LIST • 
* • 

•••*•*•*****•«*** 



•***• 
•003* 
• C3» 



•••••D3*«* ******* 



OVERFLOW *> NO 




BYTE .* 


• w— — ^ 


PROVIOED .• 


V 


•• .* 


• ***• 


*. .* 


•00 2* 


* YES 


* C2* 



E3 *. 

• • i 

OVERFLOW 



••***F3*********« 



-• OVERFLOW 

*» CHARACTER 

*. BLANK 



••*«*F4 ********** 
•INSERT OVERFLOW* 

• CHARACTER IN • 

• SPECIFIED * 

• LOCATION OF • 
•SUMMARIZED RCO • 
***************** 



*****£$********** 



* PROVIDE A ■** 
->• FOR OVERFLOW 



•***•*•***••••**• 



***** 
•002* 
* C2* 



***** 

• 002* 

* C2« 



•****G2* *••**•••• 
•CHARACTER DATA.* 
•CHANGE CODE TO * 
PREPARE FOR * 

• CHANCE • 

* * 
***************** 



>• 



F3AE35 

*****H| ********** 
•IF USER ALLOWED* 
■ FOR OVERFLOW • 

• MOVE AODR • 

• OVERFLOW CHAR * 
•TO INSERT INST * 
***************** 



•••**G3********** 



***• 

* * 

* B3 * 

* * 
• ♦** 
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1D51M0 



ENTRY * 

> 4 

*************** 



•***ai ********** 

* 
* 

S*VE/RETU»N * 



*****C 1 ********** 



* XftZ POT NTS TO • 

* DEVICE TABLE * 



ASCII 

INPUT USED 



>■ -* 

YES 



*****E1 ********** 

• 5ET JUMP * 

• CONDITION TO * 

• LOAD ASCI I DATA* 

• MANAGEMENT * 



MMOOO 

*****F2*** ******* 



* 0.»DSIM *. NO 
FIRST CALL .* — 



* VES 

I 



FILE 

NAME = 
•INPUT' 



****H1 ********* 

SET HALT 

MESSAGE TO 
■ I NPUT • 



■ SET MALT 
->• MESSAGE INPUT 
* NUMBER 



' SAME •■ NO 
NS/W. TAPE .* 



***• 






**** 


* • 






* • 


* B3 * 






* B* * 


* * 






* * 


**** 

I 






**** 

1 

V 


I1M001 V 




DKS444 


*****B3* **•**»•** 




B* *. 


* RESET CURRENT 


* 




.* 


* RECORD LENGTH 


* 


.* 


5444 


— >* XR2 POINTS TO 


* 


• a 


DISK 


* DTF 


* 


• 




* 


* 




*• w 

*. .* 



OKSA4S 

•****g5******-*l 

* LOAO NAME * 

* **CFUM SET 
->* DEVICE COO IN 

* OTF 



• VES 



*****C3 ********** 

* * 

* CLEAR DTF * 
•SECTIONS WHICH * 

* ARE RESET * 



****«D3 ********** 



* X«2 POINTS TO * 

• COMMON • 



*****E3**** ****** 

* SET UP DTF * 
•SECTIONS COMMON* 
■TO OISKi TAPE. • 

* 3T4I * 

* * 
***************** 



*****F3 ********** 



* X«2 POINTS TO * 

* DEVICE TABLE * 



* LOAO NAME i 

* HCSUP SET 
*OCVICE CODE 1 

* DTF 



.* HAS *. NO 

► OISK BEEN .* . 

••ALLOCATED.* I 



* YES 



***** 
•003* 
* AE* 



*****05«* ■**•**«• 

• • 

* SET JUMP * 

• CONDITION TO * 

* BRANCH AROUND * 



***** 
*003* 
* A2* 



DISK *• NO 




F ILE • * 


____, 


• • 


V 


.* 


***** 


*. .* 


♦002* 


* YES 


• B2* 



* 63 * 

* * 
•*** 



•SET OFF BIT FOR* 
* SAME DEVICE * 



***************** 



*****J2********** 

* * 

* SET ■26 i HALT * 
*JU«P CONOITIONS* 

* * 

* * 

r™ 

V 
*••••* 2**** ****** 
♦HALT * 

* * 

* PROCESS HALT * 

* 'Z6 1 * 



* MULTt- * 

VOLUME FILE 



***• 
NO * * 

»---->* B* * 



SET 

MULT I -VOLUME 
DTF INDICATOR 



— >+ B* * 



•003* 

* AZ* 
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***** 
■ 001* 
* G3* 

* * 



*** * *S3 ********** 

* * 

* LOAD NAME = • 
■>* StCSIT * 

■ * 

* * 
a**************** 



LOAD NAME = 
41CSTA 



I********** 



NS/NL 




*, 


VES 




REEL 




■ * 


* 


V 










***** 


*. .* 








*003* 


* N( 


J 






* B3* 



TODTF 

****+E3 ********** 



INSGPT OTF 

INFORMATION 



***************** 



oouble 

buffered 



*00 3* 
* A2* 



*****G3******« 



*DTF ATTRIBUTE «* 
•DOUBLE BUFFERED* 



***************** 



V 

***** 
•003* 
* A2* 

* • 
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ft*** 

* i 

* *Z * 



01-K2 
01 -C5 
01-35 
02-G3 



***** 
*308* 
* F3* 



* XR1 POINTS TO 
>>* COMMON. XR2 
♦POINTS TO DTF. 



***** 

• 002* 

* C3« 



FIRST 
TIME CALL 



»B3< 



• SAVE RETURN * 
•ADDRESS ANO XR2* 



♦****C2 ******* **i 
■ SET DTP FIRST * 

* TIME SWITCH* ' 

* DTF NAME = ' 

* 'INPUT' « 



*****<;3*«*» ****** 



SSUE HALT »2*«* 
AND MESSAGE * 



CHANG V 

*****D 2*********4 



DTF NAME = 
« I NP(JT#< 



SKIP 
FILE 



*****D4**« ******* 

• * 

• SET SWITCH TO * 
■>* GO GET NEXT * 

* FILE * 

* * 
***************** 



* SFT FORWARD 

* CHAIN IN OTF 



DISK 
ALLOCATED 



LLOC V 

****G £****•***■ 



ALLOCATE FILE 





.* * 






• *•• 


* 




*. 


YES 


* * 




ALLOCATE 




* 


■>* A2 * 


♦ 


. FILE 
*. ■* 


,* 




* * 
• **• 



V1H0C3 


»*• 

H2 *. 








* *. 






YES .* 


NS/NL 


*. 




--»-»* , 


TAPE 




* 


> , 


*■ «* 

*. .* 


* 








► NO 

















RETURN TO CALLER 



LOAD DATA 

MANAGEMENT 

ROUTINES 



****K2********* 
i * 

* EXIT * 

* * 

*************** 

RETURN TO CALLER 
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■DS1MQ 



* B3 * 

* * 
**** 



• *** 

* * 

* 04 * 

* * 
**** 



**«**Bl********** 

• * 

• * 

• SAVE/RETURN * 



XB3 POINTS TO * 
DEVICE TABLE ■ 



ASCII ** NO 

INPUT USED .* 1 



*****£) ********** 

* SET JUMP • 

* CONDITION TO * 
•LOAD ASCII DATA* 

* MANAGEMENT * 



HMOOO 

*****F24 



' 0.90S1H 
FIRST CALL 



* SET MALT 
->* MESSAGE INPUT 

* NUMBER 



FILE 


* . NO 


#* SAME *. NO 


NANF a 


■ »— — — — 


*• NS/NL TAPE •* 


• INPUT' 


»* 


* . on capo .* 



flNOTI V 

*****B3********* 

* RESET CURRENT 

* RECORD LENGTH 
— >* *«2 POINTS TQ 

* DTE 



OKS*4* .*■ 
B4 



.* 3**« 
• « DISK 



,* ■ 



DK5AA5 
•****g3********* 

• LOAD NAME = 

* ■■CPUM SET 
>* DEVICE COD IN 

DTF 



• CLEAR OTF 
•SECTIONS WHICH 

* ARE RESET 



*****C********** 

* LOAD NAME = 

* S»CSUM SET 
♦DEVICE CODE IN 

* OTF 




.* HAS *. NO 

•>*, OISK BEEN .* 

♦.ALLOCATED.* 



03 ♦. 




.* *. 




DISK. *■ NO 




TAPE # 37*1 .* 


_—___, 


.* 


V 


■ ■ .* 


• •*** 


•• .* 


• 002* 


♦ YES 


* S3* 





• VES 


♦ ♦♦* 

♦ 003 

♦ G2 

♦ • 
♦ 




V 




* 
* 
• 
* 
* 


SET JUMP 
CONDITION TO 
BRANCH AROUND 

.............. 

V 

• **•• 
♦00 3* 

* G2* 


♦ 
♦ 
• 
* 
* 



* XR2 POINTS TO * 

* COMMON • 



• SET UP OTF * 
•SECTIONS COMMON* 
•TO OISK. TAPE. * 

* 37*1 • 



*****G3 ********** 



• XR2 POINTS TO ♦ 

* DEVICE TABLE * 



• yes 



•****HI ******* 
• 

* SET HALT 

* MESSAGE TO 

* -INPUT' 
* 


* 
• 
* 
• 
* 


• * 
•SET OFF BIT FOP* 

• SAME DEVICE • 

• * 

• * 


1 

V 

**** 

• * 

• B3 * 

• * 






t 



OISK •. NO 






V 


• * 


***** 


♦ ■ *♦ 


♦002* 


* YES 


• 61* 



* SET »26' HALT • 
•JUMP CONDITIONS* 



,* ■. **•■ 

.* MULTI- *. NO * • 

, VOLUME FILE .♦ >* B* • 



•HALT 

* PROCESS HALT 

* »2fc» 

• 
**************** 



*****K3********** 

* * **** 

* SET * * * 

* MULTI-VOLUME * >* B* * 

* OTF INDICATOR * * * 

* * **** 
***************** 



V 
***** 
•003* 

* G2* 

* * 
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***** 

• 001* 

* H3+ 

* * 



TAPE 

FILE 



CARD 
FILE 



* VES 



***** 
*003* 
* B2+ 



EBCDIC 



i***01********* 



LOAD NAME = 
•1CSIA 



*****<: 2*** ****** 



* LOAD NAME * 
->* SSCSIT 



**************** 



D2 



****C3********* 



T ATTRIBUTE = 
J FOR CARD 



NS/NL *. ve$ 
REEL .* - 



*****D3********* 
♦ HALT 



•PROCESS HALT 26 



* NO 



V 

***** 
*003« 
* BA* 

• * 



■ *. 


HFCH .*. 


C025O1 .*. 


■3 ** 


E4 *. 


ES 


*. 


.» *. 


,* 


HFCU *• NO 
FILE ,*— - 


.* HFCH *. NO 
>*. FILE .* 


.+ 2501 
.__>*. FILE 



TPDTF 

***»*F2* ********* 



INSERT OTF 

INFORMATION 



***************** 



** 




* 


* 


LOAD NAHE = 


* 


* 


4SHFRD 


• 


• 




• 


* 




• 



• LOAD NAME = 

• VSMHRO SET ON 

• ATTR MFCM BIT 
* 
a*************** 



DOUBLE 

BUFFERED 



•SET DEVICE CODE* 
* FOR MFCU/MFCH * 



V 
***** 
•003* 
* GZ* 



LOAD NAHE i 

tSARRD SET 

DEVICE CDDF 

230 1 



CD1442 

***•*<; 5** ******* 

* LOAD NAME = 

* «»APFF SET 

* DEVICE COOE * 

* 1442 



*OTF ATTRIBUTE ■* 
•DOUBLE BUFFERED* 



' IS < 

HOPPER USED 



V 
***** 
*003* 
* G2* 

* * 



•SET ON HOPPER 2* 
• BIT •■ 



****HS********* 



RESTORE XP1 TO 
COMMON 



•003* 
• B»* 
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***** 
+002* 

• HS* 



***** 
*302* 
* B3* 



**** 

* i 

• S3 * 



***** 
•002* 
* 02* 



' REC i 
LENGTH >=a0 



*****C1 ********** 

* COMPILER MAX • 

* VABIENCE * 

* BETWEEN IRECL * 
**NO CARO LENGTH* 



IS CARD 
Q6-COLUMN 



•****E1 ********** 



* CURRENT CARD 

* LENGTH = 96 



TM3741 V 
*****B2 ********** 

* LOAD NAME * * 

* SSCPIP SET * 

* DEVICE COOE = * 

* 37*1 • 

* * 
***************** 



*****C2********** 



•RESTORE XR1 TO * 
• COMMON • 



BRLOAD ■ 
83 



NO • * FIRST *. 
*. TIME CALL .* 



*****C3 ********** 

* SET DTF FIRST • 

* TIME SWITCH. * 

* DTF NAME = *- 

* "INPUT* * 



DS *. 

t I 

IRECL < 

= 37A1 
LENGTH 



YES 



*****E2* ********* 

* CCMPUTE * 

• VARIENCE. SET * 

• CURRENT RECORD * 

* LENGTH * 



DTF NAME = 
• INPUT*" 



BRANCH V 
****»E3** ******** 



SET FORwARO * 
CHAIN IN OTF *<■ 



*****B4 ********** 



• SAVE RETURN * 
♦ADDRESS AND XRZ* 



***************** 



*****C4 ********** 



♦ISSUE HALT '26«* 
* AND MESSAGE * 



SKIP 
FILE 



•****0 3********** 

* * 

* SET SWITCH TO * 
>* GO GET NEXT * 

* FILE * 



*. YES 

ALLOCATE .* 

FILE .* I 



* G2 * 

* . * 
• *** 



XR2 POINTS TO * 

OTF * 



•****G1 ********** 



* COMPLETE CARD * 

• DTF INFORMATION* 



***************** 



->* G2 * 





• XP2 POINTS TO • 


* DTF COMPLETE * 


•DTF INFORMATION* 


• * 


***************** 


01-K2**** 




01-C5*003* 




01-DS* G2 *-> 




02-G2* * 




02-H2**** V 


«1M0VE .*. 


62 *. 


• * *. 


YES .* IRECL *. 




*. <. = < 


:recl .* 



DISK *. YES 
ALLOCATED .* 



ALLOC 

*****G3 *********< 



• ALLOCATE FILE 



*****H?********** 

* • 
♦PREPARE TO MOVE* 
•BLANKS INTO END* 

• OF RECORD * 



• PROCESS WOVE OF* 

* BLANKS * 



YES .* NS/NL 

-- — •• TAPE OR 

* . CARD 



****F«*^******« 
EXIT * 



RETURN TO CALLER 



• L0»O DATA * 

* MANAGEMENT * 

* ROUTINES * 

• * 
•****•***•**•**** 



*****K2********** 

* * 

* XRl POINTS TO • 

* COMMON. XR2 • 
•POINTS TO DTF. • 



****K3* ******** 
» EXIT 



RETURN TO CALLER 



**** 
■ " 

* B3 * 

* i 
**** 
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* 






EnTRv • 

* 












• *•* 








* * 








• 63 • --- 








• • 1 


V 




• ••* V 


.*■ 


FA/Ol/Al 


*1Z022 .*. 


Bl *. 


■****B2* ••*•••••* 


03 • . 


.* *. 


•*DS*E * 


, * 


.* PRINT *. YES 


*_ — „ 4 


NO .+ OUTPUT 


. COMMON . * 


>«PRINT CONTENTS • 


*. TO TAPE 


*. .* 


■ OF COMMON * 


*• 


*. 
*. 


,* 


• • 


• • * 
• ■ .* 



• JS • 

• * 
**** 



#iZ2*A 

•****Q3* ******** 
•SYSLOG 



* • DISPLAY 

* * HALT 

* • 



CALCULATE ■ 

NUMBER OF * 

PASSES * 

REMAINING * 

• 

*+**»*•*•******* 



* CALCULATE * 
■NUMBER OF WORK * 

• TABLES USEO * 



****+F2*** ****** 
• 

* CONVERT PASS 

* NUMBER TO 

* DECIMAL 



**** 

* ***** 
» C5 * • 

* * G2 * — -. 
***** * ] 

• ••* V 
»1ZB00 .*. 
G2 



* CURRENT 

REC COUNT 
♦.IN ERROR « 



•1Z024 


.*- 




F3 *. 




* ANY 


.* 


INPUT 


+ . 


RECDHD5 


*. 


READ 



•****F4 ********* 



***** 
*O0J* 
* B3* 

* * 



.* PRINT *. 


YES 


*. OPTION > I .* 




* ■ .* 


I 


*■ • * 


1 


*. .* 


V 


• NO 


+ *** 




* * 




• FS * 




* * 




• ••* 


V 




•****H3**+******a 




•SYSLOG * 

* — ---, * 





• *•• 

* * 

* 63 • 

* • 
*•** 



***** 

• 003* 

* S3* 

* * 



* * LOG * * 

* • MESSAGES * « 

* * * * 



**** 

• * 

• S3 * 

• * 
• *** 



* * LOG * * 

* * MFSSAGES * * 

* * * • 



J3 



• •**. 

* * 

* BS ♦ 

* ♦ 
**** 



• *** 

i < 
f G2 1 
i i 

***« 



* B5 • 

• • 
• ••* 



CS •-> 



*••• 
•1Z033 V 

•****C9********* 
♦CONVERT NUMBER 

• OF INPUT 

• RECORDS TO 

• DECIMAL 



•****OS ********** 

• SYSLOG • 

• * * * 

• *LDG MESSAGE* * 

• • • • 



• E5 *~> 



**** V 




M1ZZ20 .*. 




ES *. 




• * *. 




. • ANY * . 


YES 


*. RECORDS 




•.SELECTED . • 


1 


• « •• 




*■ 4* 


V 


* NO 


**** 






• 002 






• 81 






• • 






• 



*****F5*9******** 



•INOICATE ERROR • 
• IERflOsX'01" > * 



***************** 



•1ZSBO 

*****GS********** 

• SYSLOG • 

* * OTSPL4V * • 

• * MALT * • 

* * * * 



**** 

* * 

* J5 *-> 

* * 
*+** 



to: phase a 



EXIT • 

END OF JOB 
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*•••• 

• 001 • 

• ES* 

* • 



• ••* 

• • 

• Be • 

• • 

• ••• 



•****ci *•*•*••*•• 

* • 

* COM VCR T CURRENT* 
•RECORD COUNT TO* 

* DEC I MAI. • 

* * 
A**************** 



♦compute OUTPUT * 

* FILE SHE IN * 

• TRACKS • 



OUTPUT 
FILE BIG 
. ENOUGH 



■1Z400 

•SVSLOS ♦ 

>* • DISPLAY * ♦ 

* • HALT * • 

• • * * 



**** 

* * I 

* D2 •->! 



••••«t>] •**•••*« 
•SYSLOG 

* • 4 

• *L06 MESSAGE* 



i* VREC*T 
. > IRECVT 



to: end of job 



*•** 

> E4 *— - 
• ••• 



*****E1 ********* 

* SET NUMBER OF 

* WORK RECORDS 

* CREATED EQUAL 

* TO CURRENT 

* RECORD COUNT 



**•**?! ********** 

• SET NUMBER OF * 

• WORK BLOCKS • 

• CREATED EOUAL • 
•TO CURAENT *OftK* 

• BLOCK COUNT • 



E2 *. 

IN 
PHASE I 



• • 03-D3 
*O03*03-G3 
• 03* 
***** 



F3 *. 

• • > 

i 
ATTRQ1ITI 



( 


*. 


****G2******* 


** 




SUMMARY *. YES 


* 


* 


NO 


SORT .* ? 


• EXIT 


* 


— i 


•* 


* 


* 


| 


'. .* ( 


**••*••*•••**•• 


1 


*. .* V 






V 


* NO ***• to: phase 




•*** 




• * 






• 




* DZ * 






• E4 




• * 






* 




*••* 






**** 


V 








■*• 








HI *. 








*, 








TAPE *. YES 






i 


OUTS 


UT .* ■ 









****H3********* 



• ••* 

• • 

• 02 • 

• * 

• *•• 



SPLIT 


*. 


res 




CYLINDER 


.* 


»— i 




OUTPUT 


.# 


1 




*. .* 




1 




*. . * 




V 




* NO 




**** 


l 




• 


♦ 


1 




• 02 


* 


V 




* 


♦ 


•*•« 




• **• 


• • 








• B2 * 








• 4 








• ••* 
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***** 








•O01*01-H2 






• G2* 






• * 






* 






i 






flZ390 ,*, 






B3 *. 






• • •* 






NO .* CALL *i 

-■**■*■**. EQnil QultC A 




V 


*. 3 .* 




***** 


• ■ .* 




*002* 


*• .* 




* E2* 


" YES 




• * 








• 










V 






■ *< 


•1Z961 .*. 




C3 *. 


C* *. 




.* HORK *. 


.* *. 




.* RECORD *. HO 


.* PRINT *. YES 




•■COUNT NO. OF .* 


>*. DPT I ON > 1 .* 




*. RECORD .* 


• ■ ■* 




••6LKS .* 


*■ ■• 




*• *• 


*. •* 




* YES 


* NO 




1 

V 








fizeoo .*. 


V 




03 *. 


•****D4* ********* 




• • •* 


• 3V3l_OG * 




YES -* PRINT *. 


*—-——— — — — — * 


-_—. 


*. OPTION > 1 •• 


• * * • 


V 


*■ .* 


• *LOG MESSAGE* * 


***** 


• * ■• 


• * * * 


*002* 


*« ■• 


***************** 


* e** 


" NO 






* * 












V 








• *• 


*1Z5B0 V 


*****E2********** 


E3 •* 




• • 


• * •• 


•SYSLOG * 


•CONVERT OUTPUT * 


VES .* SUMMARY *. 




* RECORD number *<-—-. - 


*. SORT .* 


• * DISPLAY • • 


* TO oectHAL • 


• • .* 


• • MALT • • 


• • 


*. .* 

*. ■• 


• • • • 



•****F3********** 

* • 

* CONVERT WORK * 
•RECORD COUNT TO* 
« DECIMAL • 



*****G3**** •*••** 
•SY5LDG • 






***** 
*00£« 
* E2* 



• *LOG MESSAGE* * 
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»osiza 

****ai •*•**•**• 

• 4 

• EMTRV < 

• i 
*♦*****♦♦♦***** 



• •** 

* • 

* 83 • 

* ♦ 

• ••• 



.*. FA/0I/A1 

01 *. ♦** **B2********** 

► *. *»0 5SE • 

PRINT ♦. YES * * 

COMMON »* >*PR[NT CONTENTS * 

.* • OF COMMON • 

l. • * * » 

*. .* ***•**•****••••*• 

* NO 1 



*, 


YES 


TERMINAL 


• , 


ERRORS •+ 


| 


*. .* 


1 


*. »* 


V 


• NO 


**** 


I 


• * 




• JS * 




■ • 




***« 



I/D 


*. 


VFS 


ERRORS 


.* 


1 


>• 




1 


*. . * 




V 


* NO 




*••• 

• 

• J5 
* 
*•♦• 



• A * NUMBER OF * 

• PASSES NEEDED * 

• USING QM * 



* *LOG MESSAGE* * 



***** 

•ooa* 

• Bl* 

* 4 



* CONVERT PASS 

* NUMBER TO 

* DECIMAL 



• *** 

* * 
->* C5 * 

♦ * 
***« 



*****BS» ********* 

• syslog * 

» * * * 

• *LOG MESSAGE* • 



• *** 

V 
•***«CS********t 
•CONVERT NUMBER 

* OP INPUT 

* RECORDS TO 

* OECIMAL 



• ALLOCATE THE 

• OUTPUT FILE 





* * 


* • 




* • LOG MESSAGE* • 




* * * • 




**** 






* * 






• E5 •-> 






* * 






*•«¥ V 




• •• 




E5 *. 




• * *• 




YES •♦ ANY *. 





*. RECORO • • 


V 


♦.SELECTED .* 


***** 


• • .* 


• 002* 


*. .* 


* 82* 


• NO 


* * 






* 








V 




•****FS********** 




* * 




•INDICATE ERROR * 




* (£RRQ-K»Dl'» * 




* • 




* * 



• B = NUMBER OF • 

* PASSES NEEDED • 

♦ USING OH = * • 



*****K1 ********** 
•SET DU = A AND • 

• DOUBLE * 

* BUFFERS I NG IN *- 
► PHASE 2 * 



* CALCULATE * 

•NUMBER OF WORK * 

♦ TRACK3 USED * 



• *•* 

• * 

* S3 ♦ 



G3 ♦. 

t ANY 1 

INPUT 

RECORDS 

REAO 



*****H5* **•♦*•**• 



*•*• 

* * 

♦ E3 * 



**** 

• * 

• J5 *-> 

• • 
• *** 



•MZ032 .*. 




<3 *. 




.* *. 




.* PASS *- ND 












*. t* 


V 


*. »* 


• •••• 


*. .* 


• 002* 


• YES 


• Bl* 



TO: PHASE * 



• •*• 

* * 

* as • 

* • 

• *** 
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***** 

♦001*01-K3 

• E2* 



***** 
•0 01 • 
• E5* 



• *•• 

• * 

• 83 • 

• * 

• •*• 



•1Z500 


.** 




B1 *. 


.•CURRENT*. 


VFS .* 


RECORD 


--*, 


COUNT IN 


* 


. ERROR . 


1 


• ■ ■* 


V 


*. .* 


***** 


* NO 


• 003* 


| 


* H3* 





***** 

K>03* 
* 93* 

• • 



* * * • 

* *LDG MESSAGE* • 

* * * * 



' EXIT < 

to: end df job 



•****C2*** ******* 

• • 
•CONVERT CURRENT* 
•RECDRO COUNT TO* 

• DECIMAL * 

• * 
•a*************** 



• • * • 

• *L00 MESSAGE* • 

• * * • 



•**••£?*****••*•« 

• SET NUMBER DF • 

• tfORK RECORDS • 

• CREATED EQUAL • 

• TO CURRENT ♦ 

• RECORD COUNT * 
•••*•***« ** ****** 



fc****F2**« **•••■* 

• SET NUMBER OF • 

• WORK SLOCKS • 

• CREATED EQUAL * 
•TO CURRENT WORK* 

• BLOCK COUNT • 



•COMPUTER OUTPUT* 

• FILE SIZE IN • 

* TRACKS • 



OUTPUT 
FILE BIG 

, ENOUGH 



SPLIT 
CVUNDER 
. OUTPUT 



,• WREC#T *. YES 
> > IREC*T •• 



03-B3 * NO 

• *** 

• 003* 

• 03 *-> 



•SYSLOG 

* EXIT 



to: END OF JDB 







• **• 








* 


• 






* E5 


* — — -1 






* 


• 1 






**** 




• •■ 






1 


FA *. 
• • *• 






V 


* STR*> ** 


YES 


• 


EXIT 


*. .* 




* 


• . .* 








• NO 




to: 


PHASE 2 A 
BA/01/At 



• ■ ATTROKT) 



•***G3********* 
> EXIT < 



to: PHASE « 



ES * 

»*•* 



•***HA********* 
i * 

" EXIT < 



***+J5********* 

i i 

EXIT < 



• *** 

• * 

• 93 • 

• • 
**•* 
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***** 

*a02*Q2-Cl 
• Bl* 

* * 



!«•*< 

>00£i 
' E3< 



C3 ♦. 

. ♦ WORK *. 

. * RECORD ■ 

•.COUNT HQ. OF 

*■ RECORD .■ 

A.BLKS .* 

•• •• 

* VES 



«1Z600 .*• 



► PRINT 

OPTION > 



• ••*• 
«002« 

• E3* 



* SY5L0G * 

* * • • 

* *LQG MESSAGE* • 






•CONVERT OUTPUT * 

* RECORO NUMBER *<- 

• TO DECIMAL * 



.*. 


»1ZS60 V 


E3 *. 


*****€***** *•••*• 


.« *. 


•SYSLOG • 


VES >• SUMMARY *. 


»——"—" — -— ^ -"•*■* 


*. SORT .* 


* * DISPLAY * * 


*• .* 


* • HALT * * 


*. .* 
*. .* 


• * * * 



• CONVERT MORK • 
•RECORO COUNT TO* 

• OECIMAL • 

• * 
***************** 



•***F4 •*******• 



* *LOC MESSAGE* * 



***** 
*0O2* 
* E3* 
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»OS1DO 

•***AZ********* 

• I 

* ENTRY < 



♦ NEXT CSD IS NOW* 

* CURRENT CSO * 



C2 *. 

.*BLK NO.*. 
.•FROM EXTENT*. NO 

*.T0L£=WQRK ©LK.» 

*. COUNTER .* 



* YES 



*****C3********** 



*USE CSO AS NEB 
■>* DISPLACEMENT 



***************** 



* SET ERROR * 

* CONDITION IN *< 
♦CALLING PROGRAM* 



LAST 
ENTRY IN 
> TABLE 



*****E2********** 

* * 
♦SET POINTER TO • 

* NEXT ENTRY IN + 

* EXTENT TABLE * 
■ * 
***************** 



*USE CS PORTION * 

* OP NEXT ENTRY * 

♦ FOR NEXT CSD • 



•****0 3**** ****** 

* * 

* ADD * 
♦DISPLACEMENT TO* 

* BLOCK LENGTH • 



*****£3** ******** 

* USE THIS * 

* CALCULATED * 

* DISPLACEMENT * 

* FOR NEXT CSD * 

* * 
***************** 

***• 



N SECTOR 
COUNT = g« 



•ESTABLISH NEXT + 
■>■ TRACK SURFACE • 



AA004 



*****G4 ********** 



BLOCK 

LENGTH < 

256 



INCREMENT TO 
NEXT SECTOR 



*DI 

*NE 

* r 



*+H2********** 

SET * 

SPLACEMENT OF* 

XT CSD FIELD * 

WNBLKO TO * 



***************** 



***************** 



*****H4 ********** 

* * 
•OECREMENT BLOCK* 

* LENGTH AND * 

* SECTOR BY 1 * 

* * 
***************** 



EXIT 

i 
i** ********* 



YES 



WPUTL 

EE/0I/A2 

(MODEL 6 

EF/0I/A2 

MODEL 12 Oft MODEL 



OR 10) 



BLOCK *. 


LENGTH < 


296 ■• 


*« ■ * 


*■ ■* 


* NO 


*•** 


* 


->* F3 


B 


**** 
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•DS1S1 

****A2********* 

• Entry t 



**** 

* * 

* 82 *-> 

i * 

• •*• > 
. i 
02 



♦ *** 

* i 

• 85 • 

**•• 



***** 

• 002* 

• Bl* 



******+4 *4*****+* 





YES .* KEI 


■p *. 





*. EQUAL 


V 


*. .* 


***** 


*• .* 


+ 002* 


+ • ■* 


* C3* 


* NO 


* * 


• •44 




* 


• 002* 

• D2 *-> 

• * 
**** 






•15210 V 




***+*cs***«+**** 



*••* 

02-C* *002* 

02-F5 * <J5 * 



+ *»** 
*O02« 
* B4* 

* • 



ISG - 1 • 



• *•• 

• * 
->* B2 * 

* • 

• *•* 



•SET CODE FOR * 
• DESCENDING • 



**•« 

• • 

• C5 * 

• • 
**•* 



V 

* • « 
03 * 

SSTRO 



•*a 4 *D4 **«*•*+»• 



•SET INSTRUCTION* 
* AT 41S4S2 TO * 
•NOT HOVE RECORD* 



.* SORTQ = +. YES 
*. L AND SRECQ .* 

*. - .* I 



• CC0 - ISC - 1 • 



* C5 * 

• • 
**** 



**** 
* * 

► J3 • 
■ * 

• ••• 



.* e«ece *. yes 

. IN CURRENT • • — ■- 
*. STRING .* 



•ISRECA - ISRCCfi* 

• + WORK RECORD * 

• LENGTH • 



• •••• 

• 002* 

• C3* 

• * 



• •*• 

1 * + 

->+ 82 * 

* • 

+ *** 


*. 


,* 

> NO 

r 




•13204 ^ 






• SET BREC» = 
•BREC-WRECL A NO 

• CG* = CG*-1 

+ 


* 
* 
* 
* 
• 




■ •** 

• * 

• J3 •-> 

• • 
• *•* 

•1S20S 

• USE VAf 

• LFNGTt 

• ROUT 

• (0.*I 

• 






I ABLE 
t MOVE 
'INE 
)SZA) 


4 
• 
• 
• 



***»HB********* 
SR£C» k ISRECB 



*•*♦ 

> as • 
■ * 

• **• 
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***** 
•001* 
* 63* 

* • 



•001* 
* C3* 



*****a 2 ********** 



S0RT0 = *. NO 
L .* 



*****[>t ********** 

• * 
*BREC9 = BRECB +* 

• WRFCL AND CGi =* 

• CGf -I * 



•15023 V 

*****E1 ********* 



•BRECB = BRSCB +* 
■>* ¥RECL * 



****** *********< 



CG« = 
tSG 



****C3********* 

* i 

>* EXIT * 



FIRST *. NO 

CALL WHEN .• 

. SORTO = L.* 



C* *, 

i 
BUILDQ 



01-B5 *001* 
• F5* 



*****D2* ********* 

* i 

* SET CG* = ISC ' 
*-l AND SRECO = ■ 

* I 



0: PHASE IB * YE 

AD/01 /A 1 | 

(MODEL 6/10 I 
AE/01/A1 V 

[MODEL 12 OR MODEL 15>**** 

• 001* 

* 03* 
* * 



***** 
•001* 
* C5* 



move 

RECORD 



• USE VARIABLE • 

• LENGTH MOVE * 
•ROUTINE (SD5ZA)* 



•****D5* ********* 
• 

* LREC = LREC- ■ 
•WRECL . tSGMl = ■ 

* ISGM1 -1 ■ 



**** 
t * 

» E5 •-> 



*****E5********i 

* 

• DCNT a DCNT -] 



■SRECQ * I. LREC* 
= BQEC» * 



,* DCNT = *. NO 
.* 



• *** 

* * 
■>* E5 * 

* * 
**** 



• 001' 

* 03" 

• * 
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FIRST 

CALL DP 

PASS 



AGOOO V 

••••*Cl ********** 
•SET NEXT STRING* 

• EOUAL TO CSO OF* 
•FIRST STRING IN* 

• FILE * 



wen *. 

STRING 

.STARTING .* 



* PUT CURRENT * 
>*ARRAY INDEX IN • 

• COLDSS * 




♦MOVE IN NUMBER * 

* OF SECTOR* TO * 

* PEAO • 



C3 *• 

••NUMBER *. 

•*QF flECORDS * 

*> IN SLOCK - 

*. .♦ 

*. .* 

*■ .* 

* YES 


. NO 

.♦ 


• 

* INCREMENT 

>♦ RECORD NUMBER 

♦FOR SLOCK BY I 

• 


* 
* 
* 
* 
* 






I 














i 




V 
*+**p3«**+**4+1 
*SY$LOC 


* 
-* 
• 






***** 
*002* 
• Bl* 

* * 
• 




* EXIT 





*»***C3** ******** 



••••*EI ********** 

• * 
•PREPARE NUMBER • 

• DF SECTORS TO * 

• BE READ • 

• » 
•«*^ *••*•*••***•* 



*****FI ••**••**•* 

• * 

• SET AVAIL* TO • 

• CURRENT * 
•AVAILABLE BLOCK* 

• • 
•*••••«****•••*•• 



ZERO OUT 
STRUCTURED 
ARRAY TABLE 



ES *, 

► OLD 
STRING 
INDEX « 
CMP 



* F9 • -> 

k**»* • 

*•*• 
KGO20 V 

•****FS********** 

* OIVIDE QMS BY * 

* 16 AND MAKE * 
•HIGH-ORDER BITS* 



••*•*•••*•*•«**•■ 



***a*G9********** 

• * 

• INDICATE NEXT • 

• CALL TO VGETL ♦ 
•IS INTERMEDIATE* 



• *•* V 






•G003 


.*. 

HI *. 

• * *• 






. 


• ANY • 


. YES 


a. 


STRINGS 

•. LEFT .« 
• ■ ■ • 


.*' 


"1 




*. .* 




V 




♦ NO 




*••• 










• 










• FS 










• 










• •** 




V 






* 




* 




• 


MOVE CSD OF 


* 




• 


NEXT STRING 


• 




• 


INTD CSD 


• 




* 


F" 

V 

•**• 

• a 


• 






• 1 


W * 
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•601* 
* C** 

• • 



* SET NUMBER DF 
>* RECORDS IN 

• SLOCK TO 



•••**C?« •••**»»♦* 

• MOVE CSO OF • 
» NEXT BLOCK OF * 
♦OLD STftrXG INTO* 

• CSO * 

• * 



♦DECREMENT ORDER* 

* DF MERGE FO» * 

* STRING * 

* * 
♦A*************** 



* MS *-> 



****oi *••*•**•• 

• 4 

->* EXIT 4 



PHASE 2 
BA/01/03 
PHASE 3 A 
CB/02/M 
PHASE 3S 
CC/62/C2 



• IDS 

* 

* READ A BLOCK 



*. OMS « I .* 



• *** 
•001* 

• HS *-> 



*•** 

• • 
» Dl * 

• * 
**** 



•••••A*********** 






F3 


• » 


F* 


*• 




.•NUMBER •• 


.* •• 




■•OF RECORDS *. NO 


.* IN ** VES 


*. IN BLOCK ■ •• 


>•■ PHASE 3 .*- 


— ■— ^ 


*. .* 


*. .* 




*. .* 


*. .* 


1 


*. .* 


*- .* 


V 


♦ YES 


* NO 


• ••• 










• • 










* 01 • 










• * 










*•♦* 


V 


V 




*****C3* ••****••* 


••••*G4 ••**•••••• 

•RUT AOORESS OP • 




* INCREMENT • 


•HICK-ORDER BYTE* 




• STRING INDEX * 


•OF FIRST ENTRY • 
•IN TABLE IN XRI* 

* • 





•PUT FIRST ENTRY 

• IN TABLE IN 

• TEMP* 

• 



•SVSLOG • 

• EXIT * 



• SVSLOG 

■ • - — 

• EXIT 



•G0B6 V 

•••••K4 *••♦••**♦• 

• MDVF CSD DF • 
•REMAINING BLK*S« 

• NXT 8LK INTO • 

• ELEMENT • ] 

• AVAIH21 • | 
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•••»*ai •■■■••■»•! 

• INITIALIZE 

• VARIABLE AND ■ 

• STATUS ' 

• INDICATORS 
• 
*••****•***••***■ 



»****CI ********** 
f * 

■ • 

•SET Switch to i» 



***** 

• 002* 

• Bl* 



* SET NUMBER OF 

• SECTORS FOR 
•NEXT WRITE TO I 



LAST 

RECORO IN 

BLOCK 



***** 

• 002* 

* 03* 

* * 



FIRST 
RECORD I 
• BLOCK 



* THIS IS AN 
->* INTERMEDIATE 

* REQUEST 



»PQ2Q V 

*****F2**** ****** 

• IOS * 

* *SET UP IOB.* * 

* • DTF, AND • » 

• * WAIT • • 
•*•**•*****•***•* 



***** 

• 002* 

* Dl* 



******* ******** *4 

**** 



*****G3********** 



> G* *-> 
***• 



* INCREMENT 
*RECO«0 COUNTER 
•IN COMMON BY ] 



*****H2*«* ******* 

•NEKTCB * 

•SET ADDRESS OF • 

• NEXT BLOCK IM • 

• BUFFER • 



• DETERMINE • 

• ADDRESS OP • 

• CURRENT MORK * 
•BLOCK AND FIRST* 
•RECORD t« BLOCK * 
***************** 



INDICATE THIS • 

IS AN * 

INTERMEDIATE • -i 

REQUEST • 



• **» 

I i 
> G* 1 
i t 

• *** 



.* BLOCK ♦« 1 


*. FULL .*- 


♦ . .• 


• ♦ •• 


♦ . ■* 


i 


> NO 




<— 


V 


* • 


•INCREMENT WORK * 


* RECORD NUMBER • 


• BY 1 * 


• • 


***••***< 
• *•* 




D2-FZ*O03* 




02-<>t* J3 ■-> 




• * 




• ••* 




*P09a 




V 


• • 


>* EXIT • 


• * 


TO I CALLING 


PM 


»SE 



• INDICATE THIS 
->*IS LAST RECORD 

* IN BLOCK 
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• •••* 

• 001* 

• C2« 



FIRST 
RECORD IN 
BLOCK . 



02 *. 

.* BUILD *. 
.•ROUTINE USE*. 
•>*. PREVIOUS 

*. RECORD -* 

*. .* 



• *** 

• 003* 

• M3 *-> 



. *•••••*••• 



*♦** 
PP0T5 

•••••CI 

• 105 * 

• * WRITE. • • 

• WELDAO. AND* • 

• * WATT * • 



••••*C2*^*«****** 
*OC CREASE NUMBER* 

* OF RECORDS IN * 

* BLOCK BY 1 AND • 
•TOTAL NUMBER OP* 

* RECORDS BY 1 * 



•••••C3********** 

• • 

• • 
•SET SWITCH TO 0* 



• ••* 

• 001* 

• OZ *-> 

• * 

• **• 
IP040 V 



YES 


.• 


DISK 


--• 


■ 


I/O ERROR 


I 


*. 




1 




*» 


.* 


V 




*t 


,* 


***** 




* N 


• 001* 








• G3* 








• * 








* 






< 



.* ANY 
•RECORDS 
LAST 
** BLOCK 



«P076 V 

♦••♦*£) ♦•♦•♦♦♦♦♦♦ 
♦DETERMINE TOTAL* 

• WORK RECORDS* * 

• WORK BLOCKS. * 

• AND STRINGS * 



•GET CSD OF CURR* 
♦AND NXT BLK TO * 
♦ BE WRTTN ♦ 



••♦**F] •♦•♦•••**♦ 

* * 

* SET STR#T AND * 
•STRVI FOR NEXT * 

* PASS • 



#P094 

*****F2*** •**•*•• 

• SET ERROR • 

• OCCURRED IN * 

• NEXTOB! INCRKT *<- 
♦TERMINAL ERROR * 

• COUNTER * 



ANY 
EXTENTS 
LEFT 



SET WORXO FOR 
FTRST REQUEST 



• •♦♦• 

• 00 !• 

• KA* 



«**«*G3**** •***•• 

• SET NUMBER OF • 

• RECORDS IN * 
♦BLDCK EQUAL TO « 

• NUMBER OF • 
•RECORDS IN 5TOR* 



• INDICATE ♦ 

* INTERMEDIATE *<- 
♦BLOCK IN STRING* 



YES « 'CONTINUING 

*. OLD 

•» STRING < 



* SET WLSTRC 

* EOUAL TO 
•CURRENT CSD OF 

* WORK STRING 



**•♦• 

• 0D3* 

• Bl* 
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***** 

♦ 00»* 

• J3« 



SET WCSTRC 

EQUAL TO OLD 

CSO OF NEXT 

WORK SLOCK 



• TNOTCATE THIS 

• IS FIRST BLOCK 

• IN STRING 



• SET wnBLKC * 
•EQUAL TO CSO OF* 
•NEXT «ORK SLOCK* 



• •*• 

• 002* 

• Ha *-> 



,* SHOULO 
STRING 
•.CONTINUE 



•••«*tl ********** 



ffPOSS V 

****a03* ********* 

• SET WLSTRB * 
•EQUAL TO CSD OF* 
•LAST STRING IN * 

• COMMON * 



•*•* 

* * 

* E3 *-> 

* • 
• *** 

V 


• • 

• * 
•SET VRPBC TO ♦ 

• * 


•****••*•*****•*» 



START A New 

STRING 

(WBLKO*N) 



•****F3 ********** 



a**************** 



END OF 

CURRENT 

STRING 



•POS7 V 

***+*Hl •*•**•••** 

• INDICATE THIS • 

• IS LAST BLOCK • 

• IN STRING FOR * 

• PHASE I * 



* SET VNBLKB • 
•EQUAL TO CSO DF« 

>«NEXT VDRK BLOCK* 

• IN COMMON • 



• * WHITE BLOCK* * 



LAST 
BLOCK IN 
. STRING 



SWITCH *. NO 




■ 1 .* 




.* 


V 


.* 


**** 


*. .* 


•002 


• YES 


• CI 



•OR STRCBP WITH • 

• 8*01 » (LAST * 

• BLOCK IN * 

• STRING) • 



NEXT REC0RO 

•ILL BE FIRST 

IN BLOCK 



• •••* 

•001* 

• K«* 

* • 



• ••• 

* • 

* E3 • 

* * 

• ••• 
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>****bi ********** 

l INITIALIZE * 

l VARIABLE AND * 

I STATUS *< 

i INDICATORS * 



I****C1 ********** 

* 

SET SWITCH TO 1* 



*****tM ********** 

• « 

• SET *JUMBER OF • 

• SECTORS FOR • 
*NEXT WRITE TO O* 

• * 
***************** 



LAST *. YES 








.* 


V 


*. .* 


***** 


*• • * 


•ooz* 


* NO 


* Bl* 






* • 






• 


' 


' 




»*. 




D2 *. 




• *. 




LAST •-. YES 




*0 IN .*— — 


-■— ^ 


BLOCK .* 


V 


*« ** 


***** 


*♦ . * 


•002* 


* NO 


* OS* 






» • 






* 




' 




.*. 




EST *. 




• *. 




FTRST *. NO 




RECORD IN .*— — 


■ ■- — --■ 


BLC 


1CK •* 





• THIS IS AN • 
►* INTERMEDIATE • 

• REQUEST • 

• • 
***************** 



*****F2********** 



***************** 



PHASE 2 

OOU8LE 

.BUFFERING. 



**»**H£ ********** 



*****G3* ********* 
*IOS * 

>* • * • 

* * WAIT * * 

* * * * 



**♦* 
■ * 

i G4 i 



***• 
0PO31 V 

*****t}4 ********** 

• • 

• INCREMENT * 
•RECORD COUNTER » 
*IN COMMON BY 1 • 



**** *HS**** ***** • 

* • 

* INDICATE THIS • 
— >*IS LAST RECORD * 

* IN BLOCK • 



•****J2********** 



* AWRESS OF * 

* CURWENT WORK * 
•SLOCK AND FIRST* 
*VECORD IN BLOCK* 
***************** 



'INCREMENT WORK • 

r RECORD NUMBER • 

BY t * 



** 


•**K2********** 


• 


INDICATE THIS • 


• 


IS AN • 


* 


INTERMEDIATE • 


• 


REOUEST * 


■ 


• 




i **** 




1 • • 




->• c« a 




• • 




•*•* 



#P090 

v 

****K* ********* 
• EXIT 



0Z-S1***** 
02-G2*OOl* 
0Z-J3* K4* 



CALLING PHASE 
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***** 

• 001 * 

• C2* 



FIRST 

RECORD IN 

BLOCK 



.*. * *P0T2 

B? ♦ . **< 

.* BUILD *. * 

.•ROUTINE USE*. YES • 

. PREVIOUS .* >• 

*. RECDRO .* A • 



**•» 

• 003* 

* Ml *-> 



■POTS V 

*****Ct ********** 

• IOS • 

• * WRITE. * * 

• *RELOAO> AND* • 

• * WAIT * • 



***+*C2* ********* 

♦ DECREASE NUMBER* 
■ OF RECORDS IN • 
•BLOCK OY 1 AND • 
•TOTAL NUMBER OT* 

• RECORDS BY 1 • 



02 • 

.* ANY 

r •RECORDS 

'• LAST 

*. BLOCK 



**••»*• + + ***-***** 



•****C3 ********** 

• * 

• • 
•SET SWITCH TO 0* 



•* 



•*•* 




• 001* 




• DZ *-> 




• • 




• *•• V 


*P0 4O . ft. 


D3 •• 


• * *. 


.• PHASE 2 •. 1 


*. DOUBLE .*- 


♦.BUFFERING.* 



*****0« ********** 
♦ IOS • 



>* * 



***** 

• 001* 

• J3* 



•••**••**•****•*• 



»P07© V 

*****E I ••**•****• 
•DETERMINE TOTAL* 

• WORK RECORDS. • 
•WORK BLOCKS AND* 

• STRINGS * 



*****E3 ********** 

* • 
•INCREMENT WORK « 
•BLOCK NUMBER BY* 

• 1 * 



* SET 5TR*T AND 
*STR#1 FOR NEXT 

* PASS 



HP094 

***«*G2*« ******** 

• SET ERROR • 

• OCCURRED IN • 

• NEXTDB. INCRMT *<- 
•TERMINAL ERROR * 



*P0«S 

*****F3********** 
•MEXTOB • 

•GET CSD OF CURR* 
•AND NXT BLK TO * 
* BE WRITTEN * 

a**************** 



ANY 
EXTENTS 
LEFT 



***** 

• 001* 

• J3* 



***** 
*001« 
• X** 



***** 

• DOI* 

• K4* 



*****H3* ********* 

• SET NUMBER OF • 

• RECORDS IN * 
•BUOCX EQUAL TO • 

• NUMBER OF * 
•RECORDS IN STOR* 
***************** 



• INDICATE * 

* INTERMEDIATE *• 
•BLOCK IN STRING* 



.♦CONTINUING 

OLD 
*. STRING . 



• ••*• 

• 003* 

• DI* 



* SET WLSTRC 

* EQUAL TO 
•CURRENT CSD DF 

* WOP* STRING 



• a*** 
•003* 

* BI* 
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***** 

• 002* 

* K3* 



*****ai ***•*••*** 

• SET VCSTRC * 

• FOUAL TO OLD * 

• CSO OF NEST • 

• WORK BLOCK • 

• • 
***************** 



* INDICATE THIS 
*TS FIRST BLOCK 

• IN STRING 




*•** 

• 002* 

* J2 *-> 



.* SHOULD *< 

STRING 
*. CONTINUE .* 



*****E1 *••••***•• 

• * 

* INCREMENT * 

* STRING NUMBER • 

• BY 1 • 



* SET VNBLKC * 
•EQUAL TD CSD OF* 
•NEXT WORK BLOCK* 

• • 
***************** 



•P063 V 

*****D3* ********* 

* SET WLSTRB * 
•EQUAL TO CSO OF* 
•LAST STRING IN * 

• COMMON * 



START A NEW 
STRING 
(W8LK0=N1 



*****G2********** 

• SET WN8LKB • 
*EOUAL TO CSO OF* 

— >*NEXT WORK BLOCK* 

* IN COMMON * 



W0OS7 V 


**• 


•••••HI •*•••**••• 


H2 *, 


* INDICATE THIS * 


, * 


• IS LAST BLOCK • 


YES .* LAST 


• IN STRING FOR * 


•. s L oCK IN 


• PHASE 1 • 


f *. STRING 


* * 


*. 

*. .* 






•OR STRCBP WITH 

• B»OI> (LAST 

• BLOCK IN 

• STRING) 



\ 
*****E3* ********* 

* * 

*SgT SRPBC TO O * 

• * 
**••****•******•• 



•WRITE BLOCK* * 




* NEXT RECORD • 

* WILL BE FIRST * 

* IN BLOCK • 

* • 
***************** 



***** 

• 001* 

* K** 
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Section 4. Directory 



For quick reference to the program listings on microfiche, 
the directory lists the phases and routines used in Disk 
Sort. The phases and routines are listed in alphameric 
order. The directory contains the following columns: 

• Name is the symbolic label used to identify a phase 
or routine. This name appears at the beginning of 
the prologue for that module in the microfiche listing. 



Descriptive Name is the specific name used in this 
publication to better identify the phase or routine. 

Synopsis is a brief summary of the main functions 
performed by the phase or routine. 



• Entry Point is the symbolic label of the first executed 
instruction in the phase or routine. This is the point 
at which the phase or routine is entered from another 
phase or routine. 

Generation Phases 



Name 


Entry 
Point 


Descriptive 

Name 


$DSORT 




Phase 0A 


SDSAA 


SDSAA0 


Mainline 
routine 


SDSAB 


SDSAB0 


Locate Control 

Statements 

routine 


$DSAF 


$DSAF0 


Check for Work 
File Statement 
routine 



SDSBA 



SDSBA0 



$DSCA 



SDSCA1 



$DSCA0 



Phase 0B 



Phase 0C-Part A 
(Compile the 
Select/Build 
routine) 

Initialization 
routine 



Synopsis 

Made up of routines SDSAA, SDSAB, and 
$DSAF. 

Initializes part of COMMON; reads first 
sequence specification statement (header). 

Locates the sort specification statements and 
loads in O.SDS9I, O.SDS9W, or O.SDS9S to 

read them. 

Determines whether there is a work file 
statement; determines if automatic work 
file allocation is being used; determines 
if input and output files are online. 

Builds the Device Table (Model 12 and Model 15). 

Initializes rest of COMMON ; determines type 
of sort; determines if sort is ascending or 
descending; loads in O.SDSBC if alternate 
collating sequence requested. 

Reformats the Device Table (Model 12 and Model 15). 

Made up of the routines SDSCA1 through 
SDSCA9. 



Initializes Phase 0C COMMON fields; checks 
for and prints all bypassed comments or data 
statements to get first include, omit, or field 
statement. 
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Entry 
Name Point 

SDSCA2 SDSCA2 



Descriptive 
Name 

Mainline routine 



SDSCA5 



SDSCA6 



SDSCA8 



SDSCE 



SDSCF 



SDSCL 



$DSCA9 



$DSCA7 



SDSCZ 



SDSCA5 


Code Segment 




Move routine 


SDSCA6 


Determine Zone 




routine 


SDSCA8 


Error Table Build 




routine 


SDSCE 


Include/Omit 




Generator routine 


$DSCF 


Field Generator 




routine 


SDSC90 


Compute specified 




lengths 


SDSCA9 


Calculate Length 




routine 


SDSC70 


Decimal to Binary 




Convert routine 


SDSCZ0 


End of File 




for Compiler routine 



SDSCB SDSCB0 

SDSCC $DSCC(jS 



Phase 0C-Part B 
(Error Print) 

Phase 0C-Part C 
(Move Generation 
Code) 



Synopsis 

Reads and prints specification statements: 
determines if statement is include, omit, or 
field statement, and checks validity of the 
statement. 

Moves generated code to the temporary 
Select/Build area in storage. 

Determines zone of a given byte. 



Builds the error table for use by (XSDSCB. 



Generates proper code segments in the 
Select/Build routine for include and omit 
statements. 

Generates proper code segments in the 
Select/Build routine for field statements; 
generates summary table. 

Made up of routines SDSCA7 and SDSCA9. 



Calculates the length and displacement of 
Factor 1, Factor 2, and control word area. 

Converts the To field of Factor 1 to its binary 
value. 

Finalizes Select/Build code; updates phase 
Load address in COMMON; moves summary 
table to Phase I location behind COMMON; 
gives control to SDSCB immediately, if too 
many errors (CASW1 bit 7=1). 

Writes messages for errors found in Part A 
of Phase 0C. 

Moves generated code for the Select/Build 
routine to its permanent storage, location; 
moves fixed code in place ; optionally moves 
Pack-In elude/Omit and Pack -Field routines 
in place, and optionally moves the summary 
table behind the Select/Build routine. 

Moves the Device Table behind the summary 
table (Model 12 and Model 15). 
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Entry 
Name Point 

SDSDA SDSDA0 



Descriptive 

Name 

Phase 0D-Part A 



Synopsis 

Determines active program lengths of the 
execution phases. 



SDSDB SDSDB0 



$DSEA $DSEA0 



Phase 0D-Part B 



Phase 0E 



SDSGA $DSGA0 



Phase 0G 



Determines type of sort and order of merge 
to be used; determines the length of the input 
buffer, work buffer, work block, internal sort 
area, output buffer, and output record. 

Allocates output file if not a deferred mount; 
calls automatic allocate (SDSEG) if work file 
statement is omitted; converts sectors per 
extent in table of work file extents to blocks 
per extent. 

Gives control to proper execution phase; 
writes descriptive error and information 
messages. 
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Generation Routines 



44 



Name 



$DSBC 



SDSEG 



SDSZB 



$DSZC 



SDSZD 



SDSZM 



SDS91 



$DS9W 



$DS9S 



Entry 
Foint(s) 


Descriptive 

Name 


SDSBC0 
SDSBC1 


Alternate Collating 
Sequence Table 
routine 


SDSEG0 


Automatic 
Work FUe 

Allocation 
routine 


SDSZB0 


Decimal to Hex 

Conversion 

routine 


SDSZC0 


Hex to Decimal 

Conversion 

routine 


SDSZD0 


Four-Byte Hex 
Divide routine 


SDSZM0 


Three-Byte Hex 
Multiply routine 


SDS910 


Read Statement 
from SYSIN 
Reader routine 


SDS9W0 


Read Statement 
from Scheduler 
Work Area routine 


SDS9S0 


Read Statement 
from Source 
Library routine 



Synopsis 



Contains the alternate collating sequence 
table; modifies the table. 

Uses the table to translate data. 



Allocates work file space; builds table 
of work file extents. 



Converts a 7-byte zoned decimal number to a 
3-byte hex number. 



Converts a 3-byte hex number to a 7-byte 
zoned decimal number. 



Divide? one 4-byte hex number by another. 



Multiplies two 3-byte hex numbers. 



Reads statements from the system input device; 
indicates if the read was successful and if end 
of file has occurred. 

Reads statement images located in the 
scheduler work area; indicates if the read was 
successful and if end of file has occurred. 

Reads next specifications statement by 
branching to the Source Library Get routine; 
checks the return code from the Source 
Library Get routine. 
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Execution Phases 



Entry 
Name Point 

SDS1L $DS1L0 



SDS1A SDS1A0 



SDS1B SDS1B0 



Descriptive 
Name 

Phase 1L 



Phase 1A 



Phase IB 



Synopsis 

Loads modules required for Phase I into main 
storage; performs initialization common to 
0.SDS1A, O.SDS1B, and O.SDS1X; passes con- 
trol to the required sort algorithm. 

Performs an internal sort external to the 
work block when there is not enough 
storage to create strings of sequenced 
work records on the work file, each string 
one block in length. 

Performs an internal sort external to the 
work block when there is enough storage 
to create variable length strings of sequenced 
work records on the work file. 



SDS1S 



SDS1S0 



Replacement 

Selection 
Internal Sort 
routine 



Performs a selection internal sort for 
Phase IB. 



$DS1X 



SDS1X0 



Phase IX 



SSD1M SDS1M0 Next file initiator 

(Model 12 and Model 15) 



SDS1Z 



SDS2L 



$DS2A 



$DS3L 



SDS1Z0 



SDS2L0 



$DS2A0 



SDS3L0 



SDS3A 



$DS3A0 



End*of-Pass 
Reporter 

Phase 2L 
Phase II 



Phase III 



Phase 3A 



Performs a tournament sort outside of the 
work block if it is determined that a tourna- 
ment sort will run faster than the sort tech- 
nique used in Phase 1 A or IB; produces 
variable length strings of sequenced work 
records. 

Sets up the DTF, allocates the file, and loads 
Data Management for the next file to be 
processed as input. 

Provides (end-of-pass) information for 
execution phases; loads in successive phases. 

Loads modules required for Phase II into main 
storage, then passes control to O.SDS2A. 

Merges strings on the work file of records 
created in Phase 1 A, IB, or IX until the 
total number of strings is less than or equal 
to the sort's order of merge. 

Loads modules required for last pass into main 
storage; recomputes output buffer sizes; per- 
forms intialization common to (XSDS3A and 
O.SDS3S; then gives control to desired module. 

Performs the final merge for this sort; places 
sorted records consecutively on the output 
file. 
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Execution Routines 



Name 
SDS3S 



$DS4A 



SDSZA 



$DS1D 



$DS9P 



SDS9G 



Entry 
Point 

$DS3S0 



SDS9P0 
SDS9G0 



Descriptive 

Name 

Phase 3S 



SDS4A0 


Phase IV 


SDSZA0 


Variable Length 
Move routine 


SDS1D0 


NEXTDB routine 
for Phase I 



WPUTL routine 



WGETL routine 



Synopsis 

Performs the final merge for a summary sort, 
summarizing as the last pass is executing; 
places the summarized sorted records on the 
output file. 

Writes error messages; ends job for normal 
conclusion or for error conditions. 

Moves a given number of bytes from one 
storage area to another. 

Gets the cylinder/sector/displacement for 
Phase 1 A, IB, or IX of the next available 
consecutive block in the work file to write 
a block. 

Locates storage position of the next record in 
the work block; writes full blocks. 

Gets storage address of next record to be 
merged in the indicated old string. 
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Diagnostic Aid Phases 



Name 




Entry 
Point 


Descriptive 

Name 


$DS$E 




$DS$E0 


Dynamic Dump 
Loader 


$DS$A 




$DS$A0 


Print COMMON- 

Dynamic Request 


$DS$L $DS$L0 
(Model 6 and Model 10 Disk 
System only) 


Print COMMON- 
Terminal Request 



Synopsis 

Determines if there is enough available storage 
to load 0.$DS$A. 

Dumps COMMON after each phase if DEBUG 
specified on header statement and enough 
storage available to do dump; contains 
COMMON entries used by all phases. 

Dumps COMMON and terminates the job. 



Diagnostic Aid Routines 



Name 




Entry 
Point 


Descriptive 
Name 


SDSZE 




SDSZE0 


BITOHEX 

routine 


SDSZF 




SDSZF0 


BITOBIT 

routine 


SDSSC 

(Model 6 and Model 10 Disk 
System only) 


Phase 0C 
Parameter List 


$DS$D 






Phase 0D 
Parameter List 


$DS$X 






Execution Phases 
Parameter List 



Synopsis 

Converts 4-bit groups into their equivalent 
equivalent 8-bit EBCDIC values. 

Converts one byte of storage to printable 
EBCDIC values one bit at a time. 

Contains additional COMMON entries used 
by Phase 0C. 



Contains additional COMMON entries used 
by Phase 0D. 

Contains additional COMMON entries used 
by Phases I, II, and III. 
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PHASE® (in COMMON! 

PHASE© contains either the address of the current phase 
or the address of the next phase to be loaded. Immediately 
before control is to be passed to the next phase, PHASE@ 
is loaded with the address of where to load that phase. Dur- 
ing execution of the current phase (before the point where 
control is to be passed to the next phase) PHASE@ contains 
the address of where the current executing phase was load- 
ed. 

To determine the next phase address, take the current phase 
address plus or minus the entry for that phase from the 
following list. 



Current Phase 
SDSORT 



SDSBA 



SDSCZ 



Entry 

START© + 256 + SYSDML * 

(+ Device Table length-Model 12 
and Model 15) 

(No change from previous phase 
Model 6 and Model 10) 
(Adjusted for shortened Device 
Table-Model 12 and Model 15) 

-SYSINL + TABLEL 



SDSCB 


+ BUILDLtemporary + 256 


SDSCC 


- BUILDLtemporary ■ 256 + 
BUILDLfinal 


SDSDA 


(no change) 


$DSEA 


(no change) 


SDSGA 


(no change) 


$DS1A,1B,1X 


- BUILDL 


SDS1Z 


- Device Table length (Model 1 2 
and Model 15) 

(no change) 


SDS2A 


(no change) 


SDS3A 


(no change) 


SDS3S 


(no change) 



ERROR TABLE 

The error table is built backwards by O.SDSCA; that is, the 
first entry is at a higher location in storage than the second 
entry. A 3-byte entry is placed in the table for each error 
found on the specification statements. The first two bytes 
contain the statement number where the error was found; 
the third byte contains the error number. BEGER1 in 
COMMON (COMMON+X'B4' through COMMON+X'B3') 
contains the address of the error table. 



ALTERNATE COLLATING SEQUENCE TABLE 

The alternate collating sequence table, if requested, is lo- 
cated in the last 256 bytes in main storage until Phase II 
and contains all the hexadecimal values. The table is modi- 
fied by O.SDSBC according to the alternate collating se- 
quence statements. 



OLDS STRUCTURED ELEMENT ARRAY 

The OLDS structured element array, built by $DS9G, con- 
tains information on a maximum of 1 8 old sort strings. 
OLDS@ in COMMON contains the address of this array. 
Each 16-byte entry contains: 



Byte 


Contents 


0-2 


Cylinder/sector/displacement of current 
block of string (CBLK) 


34 


Total number of records in block (REC#BT 


5-6 


Number of records taken from block 
(REC#B) 


7-8 


Buffer address (BUF@) 


9-10 


Block address (BLK@) 


11-12 


Address of current record in block (REC@) 


13-15 


Cylinder/sector/displacement of next block 
ofstring(NBLK) 



For SDSORT, current PHASE@=FFFF 
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AVAIL TABLE 

0.SDS9G builds the AVAIL table so that the first entry is 
at a higher location in storage than the second entry. The 
address of the table is found at @AVAIL in COMMON. 
Each 5 -byte entry contains this information about the 
available blocks on disk: 

Byte Contents 

0-2 Cylinder/sector/displacement of block 

24 Total number of records in block (REC#BT) 

DEVICE TABLE (MODEL 12 AND MODEL 15) 

The Device Table is an 8-entry table built by SDSORT and 
contains information for each input file specified by a file 
statement. The first entry of the table represents INPUT 
or INPUT1 and the last entry represents INPUT8. During 
O-SDSORT and O.SDSBA each entry is 7 bytes long. 
O.SDSBA reformats the table stripping off DCODE and 
DRECL. This leaves each entry at a 4-byte length. The 
following is a description of a Device Table entry: 



Device Attributes 




Byte 


Contents-Tape File 


1 (DATTR) 


BitO 


Fixed-record length 




Bit! 


Reserved 




Bit 2 


Unblocked format 




Bit 3 


Blocked format 




Bit 4 


Reserved 




Bit5 


Reserved 




Bit 6 


ASCII D.M. present 




Bit 7 


Reel NL or NS 




Contents-Disk File 




BitO 


MVF offline 




Bit 1 


MVF online 




Bit 2 


File allocated 




Bits 3-7 


Not used 



Byte 



Contents-Card File (Model 15 only) 

BitO = Hopper 1 
1 = Hopper 2 
Bits 1-7 Not used 

Contents-Tape File 



Information Byte 



Byte 



Contents 



0(DIT 


*F0) Bit 


5444 file 




Bit 1 


5445 file 




Bit 2 


Tape file 




Bit 3 


MFCU file* 




Bit 4 


MFCM file* 




Bit5 


2501 file* 




Bit 6 


1442 file* 




Bit 7 


3741 file* 




*Model 1 5 only 



2-3 (DBLKL) Block length from format 1 or record 
length for 3741 input (Model 15 only) 

4 (DCODE) Device code from format 1 (not present 
after O.SDSBA) 

5-6 (DRECL) Record Length from format 1 (not 
present after O.SDSBA) 
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SUMMARY TABLE 



TABLE OF WORK FILE EXTENTS 



This table, built by O.SDSCF, contains information about 
the type, length, and location of the summary fields within 
the work record. The table consists of 1 to 25 entries. If 
bit 3 of ATTRQ1 in COMMON is 1, then the first entry is 
that of the overflow indicator field. Otherwise, the first 
entry is the first summary data field. The entries contain: 



Overflow Indicator 

Byte Contents 

XL 1 'FF' = Overflow indicator 

1 Overflow indicator character 
(from Record character column) 

2-3 Displacement of field from start 

of work record 



First Summary Field 

Byte Contents 

$ XL 1 W = Digit or unpacked decimal 

XLr80' = Character (integer) 
XL 1*40' = Packed decimal 

1 Length minus 1 of field 

2-3 Displacement of first field from 

start of work record (rightmost byte) 



O.SDSBA builds this 24-byte table in COMMON. The 
high-order byte is MVFTBL. The first four bytes in 
the table contain four 1-byte device addresses (MVFQ1- 
MVFQ4), one address for each extent. The remainder 
of the table gives five bytes of information for each 
extent in this format: 

Byte Contents 

0-1 5444 cylinder/sector of extent (MVFCS1- 

MVFCS4) or 5445 cylinder/head 

2-4 Accumulated number of sectors with 

this extent 

The last two bytes of each 5-byte entry are converted by 
O.SDSDA. Each entry then contains: 

Byte Contents 

0-1 5444 cylinder/sector of extent (MVFCS1- 

MVFCS4) or 5445 cylinder/head 

2-4 Accumulated number of work file blocks 

with this extent (MVF#1 -M VF#4) 



O.SDS9I BUFFER 

This 27 1-byte buffer is required by the transient system 
SYSIN routine when the source statements are in the 
system reader. CARD® in COMMON contains the address 
of the current statement located in this buffer. 



Following Summary Fields 

Byte Contents 

Type 

1 Length minus 1 of field 
2-3 



Displacement of this field from previous 
field (rightmost byte) 
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0.$DS9W BUFFER 

This 96-byte buffer stores the statement image from the 
JSWA Get routine when the source statements are on disk. 
CARD@ in COMMON contains the address of the current 
statement located in this buffer. 



PHASES 1 A, IB, AND 1X BUFFERS 



Work Buffer 

The work buffer overlays the initialization portion of 
O.SDS1A, O.SDS1B, and O.SDS1X. The address of the 
work buffer is in WBUF@. The length of the work buffer 
is in WBUFL. 



PHASE III BUFFERS 

Work Input Buffer 

Phase III has three work input buffer areas. The first 
buffer overlays the initialization portion of Phase III. The 
address of the buffer is in IBUF@. The buffer length is in 
IBUFL. 

Output File Buffer 

The output file buffer contains the sorted records. These 
records are placed on the output file. The address of the 
output file buffer is in OBUF@. The length of the buffer 
is in OBUFL. 



Input Buffer 

The address of the input buffer is in IBUF@. The length 
of the buffer is in IBUFL. 



Input Record Area 

The input record area is used by O.SDS1 A for the merge- 
selection internal sort. The address of this area is in IREC@. 
The length of the input record area is in IRECL or WRECL, 
whichever is greater. 



PHASE II BUFFERS 



Work Input Buffer 

Phase II has several work input buffers, one for each order 
of merge. The first buffer overlays the initialization portion 
of Phase II. The address of this buffer is in IBUF@. The 
length of the buffer is in IBUFL. 



Work Output Buffer 

The work output buffer address is in WBUF@. The length 
of the buffer is in WBUFL, The records in the output 
buffer are placed on the work file. 



COPYRIGHT INFORMATION 

This 33-byte area contains the program number for this 
program and copyright information as follows: 

For the Model 6, 
5703-SMHJCOPYRIGHTlHBMt>CORP.tJ 1971 

For the Model 10 Disk System, 
5702-SMltJCOPYRIGHTtf IBMtfCORP.tf 1970 

For the Model 12, 

5705-SM1 0COPYRIGHTtfIBMtfCORP.#1976 

For the Model 15, 
5704-SMHJCOPYRIGrmiBM^CORP.^ 1974 

The remainder of the area is filled with blanks. The copy- 
right area follows the SYSIN routine for PHASE 0A. 



PHASE IDENTIFICATION 

This 5-byte area contains information for identifying the 
phase presently in storage. The contents of the area are: 

Byte Contents 

0-3 Last four letters of the phase name 

4 Program release number 

The phase identification area is either in the first five 
bytes of the phase loaded into storage or eight bytes pre- 
ceding the entry point to the phase. 
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COMMON - Model 6 and Model 10 Disk System 

COMMON is a 256-byte interphase table used by phases 
in both generation and execution portions of Disk Sort. 
COMMON is loaded into storage as the first 256 bytes of 
the Phase 0A load module. All length fields in COMMON 
are initialized as hexadecimal zeros and all address fields 
are initialized as hexadecimal F's when Phase 0A is 
assembled. 

Figure 5-1 is a storage map showing the general data areas 
in COMMON. Figure 5-2 describes each field in COMMON 
for the Model 6 and Model 10 Disk System. A brief descrip- 
tion of each of the general data areas shown in Figure 5-1 
follows. 

$DSC(X'M-X'fa'): The first four bytes of COMMON 
contain C'$DSC\ This field serves as an identification 
field for Disk Sort COMMON. 

Counter Information (X i 04^X*p > ): This area counts the 
blocks written on the work file. 



Attribute Information Area (TO A" -'OF*): This area 
contains attribute information about the 5445 Disk Sort 
Feature, 7-track tape,and Summary Sort. 

Error Information (X'lfi'-X'll *): This is the logging area 
for Disk Sort errors. 

Job Environment Data (X'12'-X'4$'): This area contains 
data about the system environment within which the pro- 
gram will operate. 

Job Attributes Data (X l 41 '-X'68'): This area contains 
information describing the specific job to be performed 
by the program. 

General Status Information (X ( 69 '-X'71 '): This area 
tells which phase of Disk Sort is being executed and what 
type of errors have been detected. 

Generation Phases Work Area (X' 72 '-X'82'): This area 
contains information used only by the generation phases 
of Disk Sort. It is overiaid by the disk 1-0 status work 
areas during the execution portion of the program. 



X J 0-3' 


C'$DSC 


(Overlay 1) 




X'4-9' 


Counter Information 




X'OA-0F* 


Attribute Information Area 




x-ia-ir 


Error Information 




X'12-40' 


Job Environment Data 




X '4 1-68' 


Job Attributes Data 




X'69-71' 


General Status Information 




X'72-82' 


Generation Phases I0A and OB) 
Work Area {overlaid after sort 
generation) 






Generation Phases (0A and 0B) 
Temporary Area (overlaid by 
Phase 0C after Phase 0B) 


{Overlay 2) 


X'83' -X'85' 


Phases I, II, and LM Area 
(X'71-801 


X'83' -X'CF' 


Phase 0C Area 


Phase 0D Area 
(X'83-C9') 


Disk Sort Data Management Area 
(X'81-C7') 


X'C8-D9* 


Phases 1 and III Area 






X'DA-E4' 


Free Area 




X'E5-F7' 


Linkage for 0.$DS$L 




X*F8-FF' 


Constants 





Figure 5-1. Storage Map of COMMON 
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Generation Phase Temporary Work Area (XW -X'85'): 
This area contains information concerning the output file 
size. It is overlaid after Phase 0B. 



Phase 0CArea (XW-X'CF'): This area contains fields 
used only by Phase 0C. 



Plxase §D Area (X'83'-X'C9'): This area contains fields 
used only by Phase 0D. 



Phases 1A, IB, IX, and III Area (X'C8'~X'Dr): This area 
contains fields used only by Phase 1 A, IB, IX, or III. 

Free Area (X'DA '~X'E4'J: This is a free area in COMMON. 



0.$DS$L Linkage (X'ES'-X'FT): This area contains 
instructions to load and give control to 0.$DS$L when a 
terminal dump of COMMON is requested. 



Phases Fill Area (XII '-X8§'): This area contains fields 
used by Phases Mil. 



Constants (X'FS'-TFF'J: This area contains constants 
that are used by both the generation and execution por- 
tions of Disk Sort. 



Disk Sort Data Management Area (X'SI '-X'C7'J: This 
area contains fields used by Disk Sort data management. 



5-6 



Licensed Mate rial -Property of IBM 



Name 



Hexadecimal 
Displacement 



Bytes 



Description 



$DSC 03 

Counter Information 

WBLK# 06 

W5LK#T 09 

Attribute Information Area 

DATA1 0A 



0-3 

4-6 
7-9 

10 



DATA2 



0B 



11 



Character '$DSC\ the ID for COMMON 

Work block counter in current phase 
Original (Phase I) counter 



Bit 7-track tape input with converter 

Bit 1 7-track tape input with translator 

Bit 2 7-track tape output with converter 

Bit 3 7-track tape output with translator 

Bit 4 5445 feature not available 

Bits 5-7 Not used 

Bit Use new cumulative length for SORTRS 

Bits 1-4 Not used 

Bit 5 Output tape is labeled 

Bit 6 Not used 

Bit 7 Output file size check valid in 

0.$DS1Z; if bit is off, check is 

valid 

Tape output record length in Format-1 
Attributes for tape input file 
Attributes for tape output file 



Error byte used by 0.$DS1Z and 0.$DS4A 
Vector code for sort routines 

Error byte used for internal sort errors 
'2H' halt error indicator (Model 10 Disk 
System) 'CD45' halt error indicator 
(Model 6) 



Figure 5-2 (Part 1 of 13). Field Description of COMMON (Model 6 and Model 10 Disk System) 



OREC 


0D 


12-13 


TPEIN 


0E 


14 


TPEOUT 


0F 


15 


Error Information 






ERRQ 


10 


16 


SPVECT 


11 


16-17 


ERR2HQ 


11 


16-17 
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Name 



Hexadecimal 
Displacement 



Job Environment Data 
ENVQ1 12 



18 



ENVQ2 



13 



19 



ENVQ3 



14 



20 



FILE1 



15 



21 



FILE2 



16 



22 



Bytes Description 



Bit Force 0.$DS1 A sort. algorithm 

Bit 1 Force 0.$DS1 B sort algorithm 

Bit 2 Force 0.$DS1 X sort algorithm 

Bit 3 First 6445 input is on D1; if off, first 5445 input is on D2 

Bit 4 First 5445 output is on 01 

Bit 5 First 5445 output is on D2 

Bit 6 D1 is available for auto-allocate 

Bit 7 02 is available for auto-aliocate 

Bit Source statements 

Bit 1 Source statements from SYSIN reader 

Bit 2 Source statements from scheduler work area 

Bit 3 Source statements from source library 

Bit 4 DEBUG specified on header statement (dump requested) 

Bit 5 Not used 

Bit 6 Work file statement present 

Bit 7 lnDPFIevel2 

Bit Multivolume input file 

Bit 1 Multivolume work file (standard setting of 1) 

Bit 2 Multivolume output file 

Bit 3 Not used 

Bit 4 Output on upper drive if 

Bit 5 R1 available for work space if 

Bit 6 R2 available for work space if 

Bit 7 F2 available for work space if 

Bit 5444 input 

Bit 1 5445 input 

Bit 2 Tape input 

Bit 3 5444 work 

Bit 4 5445 work 

Bit 5 5444 output 

Bit 6 5445 output 

Bit 7 Tape output 

Bit ASCII input 

Bit 1 ASCII output 

Bit 2 Write to work file not verified (non-verify option) 

Bit 3 Variable record format-0.$DSBA issues error message. 

Bit 4 Error in tape OCL for Disk Sort 

Bit 5 Input is on 7-track tape; if off, input is on 9-track tape 

Bit 6 Output is on 7-track tape; if off, output is on 9-track tape 

Bit 7 Not used 



Figure 5-2 (Part 2 of 13). Field Description of COMMON (Model 6 and Model 10 Disk System) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



PHASE® 

TABLEL 

START@ 

COREL 

ALTSQ@ 

ALTSQL 

BUILD® 
BUILDL 

IREC@ 

MVFTBL 

MVFQ1 

MVFQ2 

MVFQ3 

MVFQ4 

MVFCS1 

MVF#1 

MVFCS2 

MVF#2 

MVFCS3 

MVF#3 

MVFCS4 

MVF#4 



18 
1A 
1C 
IE 
20 
22 

24 
26 

28 

29 

29 

2A 

2B 

2C 

2E 

31 

33 

36 

38 

3B 

3D 

40 



23-24 
25-26 
27-28 
29-30 
31-32 
33-34 

35-36 
37-38 

39-40 

41 

41 

42 

43 

44 

45-46 

47-49 

50-51 

52-54 

55-56 

57-59 

60-61 

62-64 



Next phase load address [see Phase Address Computation Table) 

Length of summary table 

Address of the first byte of program level 

Length of the program level in bytes 

Address of the Alternate Collating Sequence routine 

Length of the Alternate Collating Sequence routine in bytes 
(defaults to X'0000') 

Address of the Select/Build routine 

Length of the Select/Build routine in bytes (defaults to 
X'0000') 

Address of the current input record for the Select/Build routine 

Table of work file extents 

Q-byte for extent number 1 

Q-byte for extent number 2 

Q-byte for extent number 3 

Q-byte for extent number 4 

Cylinder/sector of first extent 

Number of blocks in first extent 

Cylinder /sect or of second extent 

Accumulated number of blocks with second extent 

Cylinder/sector of third extent 

Accumulated number of blocks with third extent 

Cylinder/sector of fourth extent 

Accumulated number of blocks with fourth extent 



Figure 5-2 {Part 3 of 13). Field Description of COMMON {Model 6 and Model 10 Disk System) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



Job Attributes Data 



ATTRQ1 



ATTRQ2 



ATTRQ3 



41 



42 



43 



65 



66 



67 



PRTOPN 


44 


68 


IRECL 


46 


69-70 


KEYL 


47 


71 


WRECL 


49 


72-73 


ORECLH 


4B 


74-75 


KEY2L 


4D 


76-77 


ORECLP 


4F 


78-79 


FLDCNT 


53 


8(3 



Bit 


SORTA 


Bit 1 


SORTRorSORTRS 


Bit 2 


SORTRS 


Bit 3 


Overflow indicator 


Bit 4 


0.$DSCB has messages to print 


Bit 5 


Not used 


Bit6 


Output is a deferred mount 


Bit 7 


Last pass criteria 




0=STR#<OM 




1=STR#<OM 


Bit 


= Ascending sequence 




1 = Descending sequence 


Bit 1 


At lease one valid alternate collating sequence found 


Bit 2 


Alternate collating sequence: 




0^ EBCDIC sequence 




1 = Special sequence 


Bit 3 


Drop key 


Bit 4 


Include alj 


Bit 5 


Continuation of next statement assumed 


Bit 6 


Field statement for current set 


Bit 7 


= Record type specified 




1 = Record type assumed 



Bit Summary table built (SORTRS) 

Bit 1 Pack-lnclude/Omit routine needed 

Bit 2 Pack-Field routine needed 

Bit 3 First specification in set 

Bit 4 Last statement type not saved 

Bit 5 Page sequence riot checked 

Bit 6 Data statement in current set 

Bit 7 Generating of Select/Build routine stopped 

Print option (defaults to C'0') 

Input record length 

Work record key length-1 

Work record length 

Output record length specified on header statement 

Control field length-1 

Output record length for Phase 1 1 1 

Number of entries in summary table 



Figure 5-2 (Part 4 of 13). Field Description of COMMON (Model 6 and Model 10 Disk System) 
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Name 



Hexadecimal 
Displacement 



IBUFL 
IBUF# 
IBLKL 
ISTYPE 



52 
53 
55 
56 



General Status Information 



$PHASE 
IOERRQ 



6A 
6B 



WRNERQ 



6C 



Bytes 



Description 



81-82 
83 

84-85 
86 



ISL 


58 


87-88 


ISG 


5A 


89-90 


WBF 


5C 


91-92 


WBLKL 


5E 


93-94 


WBUFL 


60 


95-96 


OM 


61 


97 


OM3 


62 


98 


OBUFL 


63-34 


99-100 


OBUF# 


65 


101 


OBLKL 


66-67 


102-103 


SPLITL 


68 


104 



105-106 
107 



Total length of input buffer 

Number of input buffers 

Length of one input block 

Internal sort type: 

E = Exchange sort used by Phase 1 A 

S - Selection sort used by Phase 1B with module $DS1S 

X = Tournament sort used by Phase 1X 

Length of internal sort area 

Number of records in internal sort area 

Normal work blocking factor 

Length of normal work block 

Total length of normal work buffer 

Order of merge (Phase II) 

Order of merge (Phase III) 

Total length of output buffer 

Number of output buffers 

Length of one output block 

Number of tracks in a split cylinder 



Current phase in EBCDIC 

Bit SYSIN error 

Bit 1 Scheduler work area read error 

Bit 2 Source member read error 

Bit 3 SYS LOG error 

Bit 4 Disk error (input file) 

Bit 5 Disk error (work file read) 

Bit 6 Disk error {work file write) 

Bit 7 Disk error (output file) 

Bit Warning error in Phase 0A 

Bit 1 Warning error in Phase 0B 

Bit 2 Warning error in Phase 0C 

Bit 3 Warning error in Phase 0D 

Bits 4-6 Not used 

Bit 7 Statement sequence errors 



Figure 5-2 (Part 5 of 13). Field Description of COMMON (Model 6 and Model 10 Disk System) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



SEVERQ 



6D 



109 



TMLERQ 



6E 



110 



Bit Severe error in Phase 0A 

Bit 1 Severe error in Phase 0B 

Bit 2 Severe error in Phase 0C 

Bit 3 Severe error in Phase 0D 

Bit 4 Severe error in Phase 0F 

Bit 5 Severe error in Phase I 

Bit 6 Severe error in Phase 1 1 

Bit 7 Severe error in Phase II! 

Bit Terminal error in Phase 0A 

Bit 1 Terminal error in Phase 0B 

Bit 2 Terminal error in Phase 0C 

Bit 3 Terminal error in Phase 0D 

Bit 4 Terminal error in Phase 0F 

Bit 5 Terminal error in Phase I 

Bit 6 Terminal error in Phase II 

Bit 7 Terminal error in Phase III 



WRNER# 


6F 


111 


Warning error counter 


SEVERN 


70 


112 


Severe error counter 


TMLER# 


71 


113 


Terminal error counter 



Generation Phases Work Areas (overlaid after sort generation) 



SETBL@ 


73 


114-115 


NETBL@ 


75 


116-117 


CARD@ 


77 


118-119 


LINE# 


78 


120 


STMT# 


7C 


122-124 


SYSIN@ 


7E 


125-126 


SYSINL 


80 


127-128 


TUILD@ 


82 


129-130 


PHO$$$ 


82 


130 


0UTF1# 


85 


131-133 



Address of the error table 

Address of the next error table entry 

Address of the statement image in SYSIN routine (high-order 
byte) 

Line number on a page for generation phase 

Current statement number in decimal 

Address of SYSIN routine 

Length of the SYSIN routine in bytes 

Temporary address of the Select/Build routine 

Last byte of constant area used by the generation phases 
Number of output records for the disk file 



Phase 0C Area (overlays Phases 0A and 0B Area) 

CARD 83 131 Columns 1-39 of current statement 

PGLN1 87 132-135 Page line 

TYPE1 88 136 Card type 

Figure 5-2 (Part 6 of 13). Field Description of COMMON (Model 6 and Model 10 Disk System) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



TYPEF 

C0NT1 

CZDP1 

FC1FB1 

FC1FE1 

FC1TB1 

FC1TE1 

RECHA1 

SUBCH1 

REL1 

CONTF 

FIOCT1 

CONBG1 

FC2FB1 

NEWSUM 
FC2FE1 

FC2TB1 

FC2TE1 

TLGTH1 

CONEN1 

DISP21 

LNGTH1 

CWADP1 

DISP11 

HEXN01 

BEGER1 

SAVER1 



89 

89 

8A 

8B 

8E 

8F 

92 

93 

94 

94 

95 

95 

96 

96 
98 

99 
9A 

90 

9E 

A9 

AB 

AD 

AE 

B0 

B2 

B4 

B6 



137 


Type of control field 


137 


Continuation record 


138 


C/Z/D/P/U 


139 


Factor 1 begin column (from! 


140-142 


Factor 1 end column (from) 


143 


Factor 1 begin column (to) 


144-146 


Factor 1 end column (to) 


147 


Record character 


148 


Substitute character 


148 


Relationship 


149 


Forced continuation 


149 


Field or constant 


150 


Beginning of constant area 


150 


Factor 2 from begin column 


152 


New resultant length of summary fi< 


151-153 


Factor 2 from end column 


154 


Factor 2 to begin column 


155-157 


Factor 2 to end column 


158 


Temporary length 


159-169 


End of constant area 


170-171 


Displacement of operand 2 


172-173 


Length for move 


174 


Displacement in Build control word 


175-176 


Displacement of operand 1 


177-178 


Hex work field 


179-180 


Beginning error table 


181-182 


End of error table 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



LNGTH2 

IWADP1 

KEYTL 

DSCA5@ 

SUMTB@ 

DSCA6@ 

DSCA8@ 

CONST@ 

CASW1 



B8 
BA 
BC 
BE 
BE 
C0 
C2 
C4 
C5 



183-184 
185-186 
187-188 

189-1 m 

189-790 
191-192 
193-194 
195-196 
197 



CASW2 


C6 


T98 


CCDLN1 


C8 


199-200 


WRECD 


CA 


201-202 


OFLOW@ 


CC 


203-204 


NSUM@ 


CE 


205-206 


SUM# 


CF 


207 



SUMI 



83 



128-134 



Phase QD Area (overlays Phase QC equates) 
ERRORQ 83 



Save area for length 

Permanent displacement in control word 

Test for control field length 

Address of #DSCA5 in O.SDSCA 

Address of summary table 

Address of #DSCA6 in O.SDSCA 

Address of #DSCA8 in O.SDSCA 

Address constants m O.SDSCA 

Bit SetXR1=XR2 

Bit 1 Force sequence 

Bit 2 Summary V found 

Bit 3 Displacement is -256 

Bit 4 Drop key: no data or summary 

specifications 
Bit 5 SORTRS: resultant length feature 
Bit 6 Not SORTRS, but S card 
Bit 7 Too many errors 
Not used 

Work field to check work record length 

Current displacement in work record 

Overflow table entry 

Next summary table entry 

Summary table element counter 

Summary table element 



131 00 No errors 

01 Phase I main storage assigned is too small 

02 Phase I main storage too small for minimum WBUFL 

03 Phase II main storage too small for minimum merge 

04 Phase III main storage too small for minimum WBUFL, OM=2 

06 For OM=2, WRECL > WBUFL 

07 For OM=4, WRECL > WBUFL 

08 Phase 1 main storage too small for WBUFL, OM=4 

09 Phase III main storage too small for minimum buffer 
0A Attempted to force O.SDS1 B, but not enough room 

10 5445 used, but feature not available 
20 Tape used, but support not available 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



PGML1A 
PGML1B 
PGML1S 
PGML1X 
PGML2A 

PGML3A 

FIXL1 

RSAL1A 

RSAL1S 

RSAL1X 

RSAL2A 

MT0D#1 

RSAS2A 

MINIL 

MINOL 

MINISL 

MINISG 

MINISB 

MINWL 

MIN2L 

JRECLP 

WBUFLP 

WBUFS 

WBLKLP 

WBLKS 

SORTRL 



85 

87 

89 

8B 

8D 

8F 
91 

93 

95 

97 

99 

9B 

9C 

9E 

A0 

A2 

A4 

A6 

A8 

AA 

AC 

AE 

AF 

B1 

B2 

B4 



132-133 0.$DS1 A active length 

1 34-1 35 0.$DS1 B active length 

1 36-1 37 0.$DS1 S active length 

1 38-1 39 0.$DS1 X active length 

140-141 O.SDS2A active length 

142-143 0.$DS3A active length 

144-145 Fixed Phase I length 

146-747 Remaining record storage area for Phase 1A 

148-149 Remaining record storage area for Phase TB 

1 50-1 51 Remaining record storage area for Phase 1 X 

152-153 Remaining record storage area for Phase II 

1 54-1 55 Remaining record storage area for Phase 1 1 1 

1 56 Record storage area in sectors for Phase 1 1 

157-158 Minimum input buffer length 

159-160 Minimum output buffer length 

161-162 Minimum sort work area 

163-1 64 Minimum number of records in sort area 

165-166 Additional minimum sort work area 

1 67-1 68 Minimum work buffer length 

169-170 Minimum Phase II (III) record storage area length 

171-172 Input record area length 

173-1 74 Effective work buffer length 

175 Work buffer length in sectors 

176-177 Effective work block length 

1 78 Work block length in sectors 

179-180 Internal sort record length 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



$0M 


B5 


181 


OMA 


B5 


181 


OMQ 


B6 


182 


TOP 


B9 


183-185 


$$$$ 


B9 


185 


AVAIL 


BB 


186-187 


MTU 


BD 


188-189 


MTL2 


BF 


190-191 


MTL3 


C1 


192-193 


ADDG 


C3 


194-195 


ADDL 


C5 


196-197 


ADDOL 


C7 


198-199 


IBF 


C9 


200-201 



Order of merge + 1 

Actual usable order of merge 

Order of merge search switch 

Scratch area 

Working storage 

Current available storage in phase 

Unused storage Phase I 

Unused storage Phase 1 1 

Unused storage Phase III 

Additional internal sort records 

Space used by ADDG 

Additional output buffer space 

Input blocking factor 



Phases /, //, and III Area 



NXTD8@ 


73 


114-115 


@POP 


75 


116-117 


@$DS9P 


77 


118-119 


@$DS9G 


79 


120-121 


@DTAMT 


7B 


122-123 


MOVER 


7C 


124 


MOVERR 


7E 


125-126 


MOVER© 


80 


127-128 


Disk Sort Data Management Areas 




@WKDTF 


82 


129-130 


WETBL@ 


84 


131-132 



OLDS@ 



86 



133-134 



Address Update routine 

Physical Read/Write routine 

Logical Write routine 

Logical Read routine 

Data input/output 

First byte of the fixed branch to 0.$DSZA 

Last byte of the fixed branch to 0.$DSZA 

Move routine address 

Work file DTF 

Current work file extent table entry 

Address of the old string table 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



I 
INQ 



88 
89 



OMP 
OMS 
NSTR 

READ@ 

READ# 

@AVA)L 

AVAIL@ 

IREC#T 

PASS 

PASS#T 

STR# 

STR#1 

STR#T 

WBLK@ 

WBUF@ 

OBUF@ 

WORK1 

WORK2 

WBLKQ 

WCBLKC 
WCSTRC 



BA 
8B 
8E 

90 

91 

93 

95 

98 

99 

9A 

9C 

9F 

A1 

A3 

A5 

A5 

A7 

A9 

AA 

AD 
B0 



135-136 String number index times 1 6 

137 WGETL master switch: 
F - First call of pass 

I = Intermediate call 

N = Start of new string merge 

1 38 Order of merge for pass 

139 Order of merge for current new string 

140-142 Cylinder/sector/displacement of the first block in the next old 

string 

143-144 Storage address of current read 

145 Number of sectors for current read 

146-1 47 Address of the high-order byte of the available list 

148-149 Address of the high-order byte of the current available element 

1 50-1 52 Total number of input records 

1 53 Current pass number 

154 Total number of expected passes 
155-156 Current string counter 

157-1 59 Cylinder/sector/dispiacement of the first block of the first string 

1 60-1 61 Number of strings in last pass 

1 62-1 63 Address of the current work block 

164-1 65 Address of the work buffer area 

164-1 65 Address of output buffer 

1 66- 1 67 2-by te work area 

1 68-1 69 2-byte work area 

170 WPUTL block type: 

N = Start new string 
O = Continue old string 

171-173 Cylinder/sector/displacement of current work block 

174-1 76 Cy tinder/sector/displacement of current work string 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



WLSTRC 
WNBLKC 
WORKQ 



WREC@ 
WREC# 
WREC#T 
WRECQ 



BUILDQ 



SRECQ 



B3 
B6 
B7 



B9 
BC 

BF 
CO 



C7 



Phase 1 Areas 




LIREC@ 


C9 


BREC@ 


CB 


SREC@ 


CD 


SORTQ 


CE 



CF 



177-179 
180-182 
183 



184-185 
186-188 

189-191 
192 



WRITE@ 


C2 


193-194 


WRITE# 


C3 


195 


WRPBC 


C5 


196-197 


WSTRQ 


C6 


198 



199 



2(30-201 
202-203 
204-205 
206 



207 



Cylinder/sector/displacement of last work string 

Cylinder /sector/displacement of next work block 

WPUTL request switch: 
F = First request 
I = Intermediate request 
L = Last request 

Address of the current located work record for output 

Work record counter 

Total number of work records created 

WPUTL record position: 
F = Next record is first in block 
I = Last record is not last in block 
L = Last record is last in block 

Storage address of next write 

Number of sectors for next write 

WPUTL record and block counter 

WPUTL string continuation switch: 
C = Continue current string 
E = End of current string 

Work record built switch: 
N = No 
Y = Yes 



Original address of the located input record 

Address of the high-order byte of the work record build location 

Address of the winning work record 

Master internal switch: 
F = First call 

I = Intermediate call 
L= Last call 

Winning record type: 
D - Dummy sort 
E = End sort 
I = Intermediate 



Figure 5-2 (Part 12 ofl3). Field Description of COMMON (Model 6 and Model 10 Disk System) 
5-18 



Licensed Material-Property of IBM 



Name 



Hexadecimal 
Displacement 



SSTRQ 



D0 



XCTL$L 



F7 



Bytes 



208 



CG# 


D2 


209-210 


ISORT@ 


D4 


211-212 


MVTBL 


D9 


213-217 


Free Area 


E4 


218-228 


Phase HI Areas 






WORK 


C9 


200-201 


AVAIL 


CB 


202-203 


MINOL 


CD 


204-205 


ERRORQ 


CE 


206 


ADDOL 


DO 


207-208 


MTL3 


D2 


209-210 


OREC# 


D5 


211-213 


Free Area 


E4 


214-228 


0.$DS$L Linkage 







229247 



Description 



Sort string switch: 

C = Continue old string 

N - New string 

Number of records in internal sort area's current string 

Address of the high-order byte of the internal sort area for 
Phase IB 

Instruction to move summary table (except op code) 

Not used 



Work Area 

Current available storage in phase 

Minimum output buffer length 

Error switch 

Additional output buffer space 

Unused storage— Phase 111 

Output record counter 

Not used 



Instructions to load and give control to 0.$DS$L when a 
terminal dump of COMMON is requested 



Constants 








10000 


F9 


248-249 


XL2'0000' 


10001 


FB 


250-251 


XL2'0001' 


10002 


FD 


252-253 


XL2'0002' 


IFFFF 


FF 


254-255 


XL2TFFF' 
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COMMON - Model 12 and Model 15 

COMMON is a 256-byte interphase table used by phases in 
both generation and execution portions of Disk Sort. 
COMMON is loaded into storage as the first 256 bytes of 
the Phase OA load module. All length fields in COMMON 
are initialized as hexadecimal zeros and al! address fields 
are initialized as hexadecimal F's when Phase OA is assem- 
bled. 

Figure 5-3 is a storage map showing the general data areas 
in COMMON. Figure £4 describes each field in COMMON 
for the Model 12 and Model 15. A brief description of each 
of the general data areas shown in Figure 5-3 follows. 



Attribute Information Area (X'OA '-'OF'): This area con- 
tains attribute information about the 5445 Disk Sort 
Feature, 7-track tape, and Summary Sort. 

Error Information (X'lO'-X'lI *): This is the logging area 
for Disk Sort errors. 

Job Environment Data (X'I2 -X'5 3 '): This area contains 
data about the system environment within which the pro- 
gram will operate. 

Job Attributes Data-Part I (XW-XW): This area con- 
tains information describing the specific job to be perform- 
ed by the program. 



$DSC(XW-X'03'J: The first four bytes of COMMON con- 
tain C*$DSC\ This field serves as an identification field for 
Disk Sort COMMON. 



Counter Information (X'04'-XV9'): This area counts the 
blocks written on the work file. 



General Status Information (X'69 '-X'71 '): This area tells 
which phase of Disk Sort is being executed and what type 
of errors have been detected. 

Generation Phases Work Area fX'72-X'82'J: This area 
contains information used only by the generation phases 
of Disk Sort. It is overlaid by the disk 1-0 status work 
areas during the execution portion of the program. 



X'0-3' 


C'$DSC 


(Overlay \ \ 




X'4-9' 


Counter Information 




X'OA-OF' 


Attribute Information Area 




X'10-11' 


Error Information 




X'12-53' 


Job Environment Data— Part 1 




X'54-68' 


Job Attributes Data 




X'69-7V 


General Status Information 




X'72-82' 


Generation Phases (OA and OB) 
Work Area (overlaid after sort 
generation) 






Generation Phases (OA and 06) 
Temporary Area (overlaid by 
Phase OC after Phase OB) 


(Overlay 2) 


X'83'-X'85' 


Phases 1, II, and III Area 
(X'71-80') 


X*3'-X J CF' 


Phase OC Area 


Phase OD Area 
<X'83-C&') 


Disk Sort Data Management Area 
(X'81-C7'» 


X'C8'-D9' 


Phases I and 111 Area 






X J DA-E4' 


Free Area 




X'E5-F7' 


Job Attributes Data— Part 2 




X*F8-FF' 


Constants 





Figure 5-3. Storage Map of COMMON 
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Generation Phase Temporary Work Area (X l 83'-X'85'): 
This area contains information concerning the output file 
size. It is overlaid after Phase OB. 



Phases 1A, IB, IX, and III Area fX t C8'-X t D9 f ): This area 
contains fields used only by Phase 1 A, IB, IX, or 111. 



Phase OCArea (X'83-X'CF'): This area contains fields used 
only by Phase OC. 



Phase OD Area (X 4 83'-X'C9 '): This area contains fields used 
only by Phase OD. 



Free Area (X'DA '-TE4 f ): This is a free area in COMMON. 



Job Attributes Data-Part 2 (X'E5 '-X'FT): This area con- 
tains information describing the job to be performed by 
the program. 



Phases I-III Area (X'71-X'80'): This area contains fields 
used by Phases MIL 



Constants (X'F8'-X'FF'): This area contains constants that 
are used by both the generation and execution portions of 
Disk Sort. 



Disk Sort Data Management Area (X*81 '-X'C7 f ): This area 
contains fields used by Disk Sort data management. 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



$DSC 03 

Counter information 
WBLK# 06 

WBLK#T 09 

Attribute Information Area 
DATA1 0A 



DATA2 



OB 



0-3 

4-6 
7-9 

10 



11 



OREC 


0D 


12-13 


OUTTK# 


0D 


13 


TKSIZE 


OE 


14 


TPEOUT 


OF 


15 


Error Information 






ERRQ 


10 


16 


SPVECT 


11 


16-17 


ERR2HQ 


11 


16-17 



Character '$DSC, the ID for common 

Work block counter in current phase 
Original (Phase I) counter 



Bit 7-track tape input with converter 

Bit 1 7-track tape input with translator 

Bit 2 7-track tape output with converter 

Bit 3 7rtrack tape output with translator 

Bit 4 Output file on D1 

Bit 5 Output file on D2 

Bit 6 Output file on D3 {Model 1 5 only} 

Bit 7 Output file on D4 {Model 1 5 only) 

Bit 96-column card input {Model 15 only) 

Bit 1 80-column card input {Model 15 only) 

Bit 2 Multiple tape files 

Bit 3 Multiple 5444 input files 

Bit 4 Multiple 5445 input files 

Bit 5 Output tape is labeled 

Bit 6 Work file is split/cylinder (Model 15 only) 

Bit 7 Output file size check valid in 

O.SDSIZ; if bit is off check is 

valid 

Tape output record length in Format-1 
Number of tracks given for disk output 
Sectors/track for the 5445 files 
Attributes for tape output file 

Error byte used by 0.$DS1Z and 0.$DS4A 

Vector code for sort routines 

Error byte used for internal sort errors '2H' 
halt error indicator 
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Name 



Hexadecimal 
Displacement 



Job En vtronmen t Da ta 
ENVQ1 12 



18 



ENVQ2 



13 



19 



ENVQ3 



14 



20 



FILE1 



15 



21 



FILE2 



16 



22 



Bytes Description 



Bit D1 Available for work space 

Bit 1 D2 Available for work space 

Bit 2 D3 Available for work space (Model 15 only) 

Bit 3 D4 Available for work space (Model 15 only) 

Bits 4-5 Not used 

Bits 6-7 01 = Force 0.$DS1A algorithm 

10 = Force O.SDS1B algorithm 

1 1 = Force 0.$DS1 X algorithm 

Bit Source statements 

Bit 1 Source statements from SYSIN reader 

Bit 2 Source statements from scheduler work area 

Bit 3 Source statements from source library 

Bit 4 DEBUG specified on header statement (dump requested) 

Bit 5 No used 

Bit 6 Work file statement present 

Bit 7 In DPF partition 2 

Bit Multivolume input file 

Bit 1 Multivolume work file (standard setting of 1) 

Bit 2 Multivolume output file 

Bit 3 Not used 

Bit 4 Output on upper drive if 

Bit 5 R 1 available for work space if 

Bit 6 R2 available for work space if 

Bit 7 F2 available for work space if 

Bit 5444 input 

Bit 1 5445 input 

Bit 2 Tape input 

Bit 3 5444 work 

Bit 4 5445 work 

Bit 5 5444 output 

Bit 6 5445 output 

Bit 7 Tape output 

BitO ASCII input 

Bit 1 ASCII output 

Bit 2 Write to work file not verified (non-verify option) 

Bit 3 Variable record format— 0.$DSBA issues error message. 

Bit 4 Error tn tape OCL for Disk Sort 

Bit 5 Input is on 7-track tape; if off, input is on 9-track tape 

Bit 6 Output is on 7-track tape; if off, output is on 9-track tape 

Bit 7 Not used 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



PHASE® 

TABLEL 

START@ 

COREL 

ALTSQ@ 

ALTSQL 

BUILD@ 
BUILDL 

IREC@ 

MVFTBL 

MVFQ1 

MVFQ2 

MVFQ3 

MVFQ4 

MVFCS1 

MVF#1 

MVFCS2 

MVF#2 

MVFCS3 

MVF#3 

MVFCS4 

MVF#4 

DTAB@ 

INPUT# 



18 
1A 
1C 
1E 
20 
22 

24 
26 

28 
29 
29 

2A 

2B 

2C 

2E 

31 

33 

36 

38 

3B 

3D 

40 

42 

43 



23-24 

25-26 
27-28 
29-30 
31-32 
33-34 

35-36 
37-38 

39-40 

41 

41 

42 

43 

44 

45-46 

47-49 

50-51 

52-54 

55-56 

57-59 

60-61 

62-64 

65-66 

67 



Next phase load address (see Phase Address Computation Table} 

Length of summary table 

Address of the first byte of partition 

Length of the partition in bytes 

Address of the Alternate Collating Sequence routine 

Length of the Alternate Collating Sequence routine in bytes 
(defaults to X'0000'} 

Address of the Select/Build routine 

Length of the Select/Build routine in bytes (defaults to 
X'0000') 

Address of the current input record for the Select/Build routine 

Table or work file extents 

Q-byte for extent number 1 

Q-byte for extent number 2 

Q-byte for extent number 3 

Q-byte for extent number 4 

Cylinder/sector of first extent 

Number of blocks in first extent 

Cylinder/sector of second extent 

Accumulated number of blocks with second extent 

Cylinder/sector of third extent 

Accumulated number of blocks with third extent 

Cylinder/sector of fourth extent 

Accumulated number of blocks with fourth extent 

Address of Device Table 



1 byte input file counter: 
x'40'- 1st file = INPUT 
x'FV- 1st file = INPUT1 
x 'FF— 1st file not present 

Figure 5-4 (Part 3 of 14). Field Description of COMMON (Model 12 and Model 15) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



INDTF@ 

DMLD@ 

DMLNG 

IBUF@ 

SW1M1 



45 
47 
48 
4A 
4B 



68-69 

70-71 

72 

73-74 

75 



CRECL 
XTRA 

LINE# 



4D 
51 
52 



#MAXL 53 

Job Attributes Data - Part 1 



ATTRQ1 



54 



77 

78-81 
82 
83 

84 



ATTRQ2 



55 



85 



Address of DTF area 
Address of Data Management load point 
Length of Data Management in sectors 
Address of input buffer-Phase I 



BitO 1st call of 0.$DS1M 

Bit 1 1st file name = INPUT 

Bit 2 Card device and IRECL>80 (Model 15 only) 

Bit 3 Halt '26' same device 

Bit 4 Skip file-1 option-'26' 

Bits 5-7 Not used 

Record length of file currently being processed 

Not used 

Current line number 

System page size 



BitO 


SORTA 


Bit 1 


SORTRorSORTRS 


Bit 2 


SORTRS 


Bit 3 


Overflow indicator 


Bit 4 


0.$DSCB has messages to print 


Bit 5 


Not used 


Bit 6 


Output is a deferred mount 


Bit 7 


Last pass criteria 




= STR#<_OM 




1 - STR#< OM 



BitO 

Bit 1 
Bit 2 



Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 



= Ascending sequence 

1 = Descending sequence 

At lease one valid alternate collating sequence found 
Alternate collating sequence: 

= EBCDIC sequence 

1 = Special sequence 
Drop key 

Include all 

Continuation of next statement assumed 

Field statement for current set 

= Record type specified 

1 = Record type assumed 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



ATTRQ3 



56 



86 



PRTOPN 


57 


87 


IRECL 


59 


88-89 


KEYL 


5A 


90 


WRECL 


5C 


91-92 


ORECLH 


5E 


93-94 


KEY2L 


60 


95-96 


RSAL3A 


62 


97-98 


FLDCNT 


63 


99 


IBUFL 


65 


100-101 


IBUF# 


66 


102 


IBLKL 


68 


103-104 



Bit Summary table built (SORTRS) 

Bit 1 Pack-Include/Omit routine needed 

Bit 2 Pack-Field routine needed 

Bit 3 First specification in set 

Bit 4 Last statement type not saved 

Bit 5 Page sequence not checked 

Bit 6 Data statement in current set 

Bit 7 Generating of Select/Build routine stopped 

Print option (defaults to CO') 

Input record length 

Work record key length-1 

Work record length 

Output record length specified on header statement 

Control field length-1 

Remaining record storage area for Phase III 

Number of entries in summary table 

Total length of input buffer 

Number of input buffers 

Length of one input block 



General Status Information 



$PHASE 


6A 


105-106 


Current phase in EBCDIC 


10ERRQ 


6B 


107 


BitO 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


SYSIN error 

Scheduler work area read error 

Source member read error 

SYSLOG error 

Disk error (input file) 

Disk error (work file read) 

Disk error (work file write) 

Disk error (output file) 



WRNERQ 



6C 



108 



Bit Warning error in Phase 0A 
Bit 1 Warning error in Phase 0B 
Bit 2 Warning error in Phase 0C 
Bit 3 Warning error in Phase 0D 
Bits 4-6 Not used 
Bit 7 Statement sequence errors 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



SEVERQ 



6D 



109 



TMLERQ 



6E 



no 



Bit Severe error in Phase 0A 

Bit 1 Severe error in Phase OB 

Bit 2 Severe error in Phase 0C 

Bit 3 Severe error in Phase 0D 

Bit 4 Severe error in Phase OF 

Bit 5 Severe error in Phase I 

Bit 6 Severe error in Phase II 

Bit 7 Severe error in Phase 1 1 1 

Bit Terminal error in Phase 0A 

Bit 1 Terminal error in Phase OB 

Bit 2 Terminal error in Phase OC 

Bit 3 Terminal error in Phase OD 

Bit 4 Terminal error in Phase OF 

Bit 5 Terminal error in Phase I 

Bit 6 Terminal error in Phase II 

Bit 7 Terminal error in Phase III 



WRNER# 


6F 


111 


Warning error counter 


SEVER# 


70 


112 


Severe error counter 


TMLER# 


71 


113 


Terminal error counter 



Generation Phases Work Areas {overlaid after sort generation) 



SETBL@ 


73 


114-115 


NETBL@ 


75 


116-117 


CARD© 


77 


118-119 



Address of the error table 

Address of the next error table entry 

Address of the statement image in SYSIN routine {high-order 
byte) 



INFO 



78 



120 



BitO MFCU input 
Bit 1 MFCM input 
Bit 2 2501 input 
Bit 3 1442 input 
Bit 4 3741 input 
Bits 5-7 Not used 



{Model 15 only) 



STMT# 

SYSIN@ 

SYSIN L 

TU)LD@ 

PHO$$$ 

OUTF1# 



7C 
7E 
80 
82 

82 
86 



121-124 

125-126 

127-128 

129-130 

130 

134 



Current statement number in decimal 

Address of SYSIN routine 

Length of the SYSIN routine in bytes 

Temporary address of the Select/Build routine 

Last byte of constant area used by the generation phases 

Temporary area for output file size-in records or tracks 
(Phases 0A and 0B) 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



Phase OC Area (over/ays Phases OA and OB Area) 



CARD 


83 


131 


Columns 1-39 of current statement 


PGLN1 


87 


132-135 


Page line 


TYPE1 


88 


136 


Card type 


TYPEF 


89 


137 


Type of control field 


C0NT1 


89 


137 


Continuation record 


CZDP1 


8A 


138 


C/Z/D/P/U 


FC1FB1 


8B 


139 


Factor 1 begin column (from) 


FC1FE1 


8E 


140-142 


Factor 1 end column (from) 


FC1TB1 


8F 


143 


Factor 1 begin column (to) 


FC1TE1 


92 


144-146 


Factor 1 end column {to} 


RECHA1 


93 


147 


Record character 


SUBCH1 


94 


148 


Substitute character 


REL1 


94 


148 


Relationship 


CONTF 


95 


149 


Forced continuation 


FI0CT1 


95 


149 


Field or constant 


C0NBG1 


96 


150 


Beginning of constant area 


FC2FB1 


96 


150 


Factor 2 from begin column 


NEWSUM 


98 


152 


New resultant length of summary field 


FC2FE1 


99 


151-153 


Factor 2 from end column 


FC2TB1 


9A 


154 


Factor 2 to begin column 


FC2TE1 


9D 


155-157 


Factor 2 to end column 


TLGTH1 


9E 


158 


Temporary length 


C0NEN1 


A9 


159-169 


End of constant area 


DISP21 


AB 


170-171 


Displacement of operand 2 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



LNGTH1 

CWADP1 

DISP11 

HEXN01 

BEGER1 

SAVER1 

LNGTH2 

IWADP1 

KEYTL 

DSCA5@ 

SUMTB@ 

DSCA6@ 

DSCA8@ 

CONST® 

CASW1 



CASW2 
CCDLN1 

WRECD 

0FLOW@ 

NSUM@ 



AD 

AE 

BO 

B2 

B4 

B6 

B8 

BA 

BC 

BE 

BE 

CO 

C2 

C4 

C5 



C6 
C8 
CA 
CC 
CE 



172-173 Length for move 

174 Displacement in Build control word 

1 75-1 76 Displacement of operand 1 

177-178 Hex work field 

1 79-1 80 Beginning error table 

181-182 End of error table 

1 83-1 84 Save area for length 

185-186 Permanent displacement in control word 

1 87-1 88 Test for control field length 

189-190 Address of #DSCA5 in 0.$DSCA 

1 89-1 90 Address of summary table 

191-192 Address of #DSCA6 in 0.$DSCA 

193-194 Address of #DSCA8 in 0.$DSCA 

195-196 Address constants in O.SDSCA 

197 BitO SetXR1=XR2 
Bit 1 Force sequence 
Bit 2 Summary V found 
Bit 3 Displacement is -256 

Bit 4 Drop key: no data or summary 

specifications 
Bit 5 SORTRS: resultant length 

feature 
Bit 6 Not SORTRS, but S card 
Bit 7 Too many errors 

1 98 Not used 

199-200 Work field to check work record length 

201-202 Current displacement in work record 

203-204 Overflow table entry 

205-206 Next summary table entry 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



SUM# CF 207 

SUM I 83 128-134 

Phase OD Area (overlays Phase 0C equates) 
ERRORQ 83 131 



PGML1A 

PGML1B 

PGML1S 

PGML1X 

PGML2A 

PGML3A 

FIXL1 

RSAL1A 

RSAL1S 

RSAL1X 

RSAL2A 

MTOD#1 

RSAS2A 

MINIL 

MINOL 

MINISL 

MINISG 



85 

87 

89 

8B 

8D 

8F 

91 

93 

95 

97 

99 

9B 

9C 

9E 

AO 

A2 

A4 



132-133 

134-135 

136-137 

138-139 

140-141 

142-143 

144-145 

146-147 

148-149 

150-151 

152-153 

154-155 

156 

157-158 

159-160 

161-162 

163-164 



Summary table element counter 
Summary table elment 

00 No errors 

01 Phase f main storage assigned is too small 

02 Phase I main storage too small for minimum WBUFL 

03 Phase 1 1 main storage too small for minimum merge 

04 Phase 1 1 1 main storage too small for minimum WBUFL, OM-2 

06 For 0M=2,WRECL> WBUFL 

07 For OM=4,WRECL> WBUFL 

08 Phase I main storage too small for WBUFL, 0M=4 

09 Phase III main storage too small for minimum buffer 
0A Attempted to force 0.$DS1 B, but not enough room 

0.$DS1 A active length 

0.$DS1B active length 

0.$DS1S active length 

0.$DS1X active length 

0.SDS2A active length 

0.$DS3A active length 

Fixed Phase I length 

Remaining record storage area for Phase 1A 

Remaining record storage area for Phase 1 B 

Remaining record storage area for Phase 1X 

Remaining record storage area for Phase II 

Not used 

Record storage area in sectors for Phase II 

Minimum input buffer length 

Minimum output buffer length 

Minimum sort work area 

Minimum number of records in sort area 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



MINISB 

MINWL 

MIN2L 

IRECLP 

WBUFLP 

WBUFS 

WBLKLP 

WBLKS 

SORTRL 

$OM 

OMA 

OMQ 

TOP 

$$$$ 

AVAIL 

MTL1 

MTL2 

MTL3 

ADDG 

ADDL 

ADDOL 

IBF 



A6 
A8 
AA 
AC 

AE 

AF 

B1 

B2 

B4 

B5 

B5 

B6 

B9 

B9 

BB 

BD 

BF 

C1 

C3 

C5 

C7 

eg 



165-166 Additional minimum sort work area 

167-1 68 Minimum work buffer length 

1 69-1 70 Minimum Phase II (III) record storage area length 

1 71 -1 72 Input record area length 

1 73-1 74 Effective work buffer length 

175 Work buffer length in sectors 

176-177 Effective work block length 

178 Work block length in sectors 

179-180 Internal sort record length 

1 81 Order of merge + 1 

181 Actual usable order of merge 

182 Order of merge search switch 
183-185 Scratch area 

185 Working storage 

186-187 Current available storage in phase 

188-189 Unused storage Phase I 

190-191 Unused storage Phase II 

192-193 Unused storage Phase III 

194-195 Additional internal sort records 

196-197 Space used by ADDG 

198-199 Additional output buffer space 

200-201 Input blocking factor 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



Phases I, II, and III Area 



NXTDB@ 


73 


114-115 


©POP 


75 


116-117 


@$DS9P 


77 


118-119 


@$DS9G 


79 


120-121 


@DTAMT 


7B 


122-123 


MOVER 


7C 


124 


MOVERR 


7E 


125-126 


MOVER© 


80 


127-128 


SW1X1 


82 


129 



SW1X2 



83 



130 



Disk Sort Data Management Areas 



WETBL® 


84 


131-132 


OLDS@ 


86 


133-134 


I 


88 


135-136 


INQ 


89 


137 



OMP 
OMS 
NSTR 

READ® 

READ# 

@AVAIL 

AVAIL© 

IREC#T 



8A 
8B 
8E 

90 
91 
93 
95 
98 



138 
139 
140-142 

143-144 

145 

146-147 

148-149 

150-152 



Address update routine 

Physical read/write routine 

Logical write routine 

Logical read routine 

Data input/output 

First byte of the fixed branch to 0.$DSZA 

Last byte of the fixed branch to 0.$DSZA 

Move routine address 

Bit Phase II called 

Bit 1 Double-buffered writes in Phase II 

Bits 2-7 Not used 

Not used 

Current work file extent table entry 

Address of the old string table 

String number index times 16 

WGETL master switch: 

F - First call of pass 

I - Intermediate call 

N = Start of new string merge 

Order of merge for pass 

Order of merge for current new string 

Cylinder/sector/displacement of the first block in the next old 
string 

Storage address of current read 

Number of sectors for current read 

Address of the high-order byte of the available list 

Address of the high-order byte of the current available element 

Total number of input records 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



PASS 
PASS#T 

STR# 

STR#1 

STR#T 

WBLK@ 

WBUF@ 

OBUF@ 

WK#11 

WK#22 

WBLKQ 

WCBLKC 
WCSTRC 
WLSTRC 

WNBLKC 
WORKQ 



WREC@ 
WREC# 
WREC#T 
WRECQ 



WRITE@ 



gg 

9A 
9C 
9F 
A1 
A3 
A5 
A5 
A7 
A9 
AA 

AD 
BO 
B3 
B6 
B7 



B9 
BC 
BF 
CO 



C2 



153 

154 

155-156 

157-159 

160-161 

162-163 

164-165 

164-165 

166-167 

168-169 

170 

171-173 
174-176 
177-179 
180-182 
183 



184-185 
186-188 
189-191 
192 



193-194 



Current pass number 

Total number of expected passes 

Current string counter 

Cylinder/sector/displacement of the first block of the first string 

Number of strings in last pass 

Address of the current work block 

Address of the work buffer area 

Address of output buffer 

Current input record length minus one 

Work area 

WPUTL block type: 
N = Start new string 

= Continue old string 

Cylinder/sector/displacement of current work block 

Cylinder/sector/displacement of current work string 

Cylinder/sector/displacement of last work string 

Cylinder/sector/displacement of next work block 

WPUTL request switch: 
F = First request 

1 = Intermediate request 
L = Last request 

Address of the current located work record for output 

Work record counter 

Total number of work records created 

WPUTL record position: 
F = Next record is first in block 
I = Last record is not last in block 
L = Last record is last in block 

Storage address of next write 
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Name 



Hexadecimal 
Displacement 



Bytes 



Description 



WRITE* 

WRPBC 

WSTRQ 

BUILDQ 



SRECQ 



SSTRQ 



C3 
C5 
C6 

C7 



CF 



DO 



195 

196-197 

193 

199 



Phase 1 Areas 






LIREC@ 


C9 


200-201 


BREC@ 


CB 


202-203 


SREC@ 


CD 


204-205 


SORTQ 


CE 


206 



207 



208 



CG# 


D2 


209-210 


ISORT@ 


D4 


211-212 


MVTBL 


D9 


213-217 


Free Area 


E4 


218-228 


Phase III Areas 






WORK 


C9 


200-201 


AVAIL 


CB 


202-203 


MINOL 


CD 


204-205 



Number of sectors for next write 

WPUTL record and block counter 

WPUTL string continuation switch: 
C = Continue current string 
E = End of current string 

Work record built switch: 
N = No 
Y = Yes 



Original address of the located input record 

Address of the high-order byte of the work record build location 

Address of the winning work record 

Master internal switch: 
F = First call 
I = Intermediate call 
L = Last call 

Winning record type: 
D = Dummy sort 
E = End sort 
I = Intermediate 

Sort string switch: 

C = Continue old string 

N = New string 

Number of records in internal sort area's current string 

Address of the htgh-order byte of the internal sort area for 
Phase 1 B 

Instruction to move summary table (except op code! 

Not used 



Work Area 

Current available storage in phase 

Minimum output buffer length 
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Name 



Hexadecimal 
Displacement 



Bytes Description 



ERRORQ 
ADDOL 
MTL3 
OREC# 
Free Area 



CE 
DO 

D2 
D5 
E4 



Job A ttributes Data - Part 2 



ISTYPE 



ISL 
ISG 

WBF 

WBLKL 

WBUFL 

OM 

OM3 

OBUFL 

OBUF# 

OBLKL 

SPLITL 

Constants 

10000 

10001 

10002 

IFFFF 



E5 



E7 

E9 

EB 

ED 

EF 

FO 

F1 

F3 

F4 

F6 

F7 

F9 
FB 
FD 
FF 



206 Error switch 

207-208 Additional output buffer space 

209-210 Unused storage - Phase III 

21 1-213 Output record counter 

214-228 Not used 

229 Internal sort type: 

E = Exchange sort used by Phase 1 A 

S = Selection sort used by Phase 1B with module $DS1S 

X = Tournament sort used by Phase IX 

230-231 Length of internal sort area 

232-233 Number of records in internal sort area 

234-235 Normal work blocking factor 

236-237 Length of normal work block 

238-239 Total length of normal work buffer 

240 Order of merge (Phase II) 

241 Order of merge (Phase II I) 
242-243 Total length of output buffer 
244 Number of output buffers 
245-246 Length of one output block 

247 Number of tracks in a split cylinder 



248-249 


XL2'0000' 


250-251 


XL2'000V 


252-253 


XL2'0002' 


254-255 


XL2'FFFF 
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Section 6. Object Program (Select/Build Routine) 



The object program consists of the Select/Build routine 
built by Phase 0C during generation time. During execution 
time, Phase 1 A or Phase 1 B reads an input record and 
branches to the Select/Build routine. The Select/Build 
routine identifies the record and determines whether to 
include or omit it in the sort. If it is to be included, the 
Select/Build routine forms the work record from the input 
record; then it branches back to the calling phase (see Fig- 
ure 6-5). The execution phases continue processing. See 
Section 2. Method of Operation for a control flow diagram 
of the execution phases and their relationship to the 
Select/Build routine. 

The Select/Build routine is made up of three areas of code: 

1 . Fixed code for the linkage between the Select/Build 
routine and the calling phase, and between the 
Select/Build routine and the Pack-lnclude/Omit 
and Pack-Field routines. 



FIXED CODE FOR LINKAGE 

This fixed code is always present at the beginning of the 
Select/Build routine. Phase 1 A, IB, or IX enters at the 
address contained in BUILD@ in COMMON. The code 
then jumps to the generated code segments. If the record 
is to be included and its work record has been built, the 
generated code branches to the beginning of the fixed code 
+ X^D* (SETY). If the record is to be omitted, the gener- 
ated code branches to the beginning of the fixed code 
+ X'33* (SETN). The instructions in the fixed code set 
BUILDQ, a switch in COMMON, to indicate to Phase 1 A, 
IB, or IX that the record is to be included or omitted. The 
program then returns to the next sequential instruction of 
Phase 1A, IB, or IX. The instructions which make up this 
fixed code follow. 



2. Generated code segments selected by O.SDSCL, 
O.SDSCE, and O.SDSCF in Part A of Phase OC 
(O.SDSCA). 

3, Fixed code for the Pack- Include/Omit and Pack- 
Field routines. 

A description of these three areas follows. 



1 


0000 ccxooo 


EQU 


* 


First byte of fixed code 


0000 




SIGNW1 


DS 


XL1 


Sign for work area 1 


0001 




W1 


DS 


XL16 


Work area 1 


0011 




SIGNW2 


DS 


XL1 


Sign for work area 2 


0012 




W2 


DS 


XL16 


Work area 2 


| 0022 


E2C5D361 C2E4C9D3C4 




DC 


CL9 'SEL/BUILD' 


Constant 


002B 


0004 


FOUR 


DC 


CL2 '04* 




| 002D 


7C E8 C7 


SETY 


MVI 


BUILDQ <,XR1),C'Y' 


Set BUI LDQ to 'Y' for an include 
record 


0030 


F2 87 03 




J 


BLEAVE 


Jump around next instruction 


0033 


7C D5 C7 


SETN 


MVl 


BUJLDQ|,XR1),C'N' 


Set BUILDQ to 'N* for an omit 
record 


0036 


C2 01 0000 


BLEAVE 


LA 


#,XR1 


Restore register 1 


003A 


C2 02 0000 


BLEAV2 


LA 


#,XR2 


Restore register 2 


| 003E 


CO 87 0000 


BLEAV3 


B 


# 


Return to Phase 1 A. IB, or IX 
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0042 34 08 004F 

0046 34 01 0039 

0O4A 34 02 004B 

004 E 75 02 CB 

0051 F2 87 14 

0054 35 10 007F 

0058 FFFF 

005A 35 10 0085 

005E FFFF 



BENTER ST 

CC25 ST 

CC26 ST 

L 



VECTPK L 

CCX995 DC 

PAKRNT L 

CCX996 DC 



BLEAV3+3.ARR 

BLEAVE+3,XR1 
BLEAV2+3,XR2 
BREC@(,XR1),XR2 

*+23 

PACK@,16 

AL2(PACBGN> 

PKRNT@,16 

AL2 (CWP) 



Store the return address from the 
ARR 

Store register 1 

Store register 2 

Place address of the build record 
in register 2 

Jump over beginning of set 
instructions {I YES/I NO) 

Load I AR with address of Pack- 
Include/Omit routine 

Entry point of Pack routine 

Load IAR with address of Pack- 
Field routine 

Entry point of Pack -Field routine 



GENERATED CODE SEGMENTS 

The generated code segments reflect the specifications on 
the Sequence Specifications sheet. They are placed in 
storage in the order in which they are generated. Figure 
6-6 shows the sequence in which code segments are used 
forming the Select/Build routine for a given sequence 
specification statement. The two main functions of the 
generated code are to identify the record and, if the record 
is to be included, build the work record. 

The sequence specifications for a sort are comprised of one 
or more sets. The two types of sets are include sets and 
omit sets. 



Include sets identify (1) the input records to be included 
in the sort and (2) the fields in the records which are to be 
used to build the work record. Include sets are specified by 
one or more include statements (I in position 6) intercon- 
nected by AND and OR specifications (A or in position 
7). The last include statement is followed by one or more 
control field and data field statements (F in position 6). 
Control field specifications (N. 0. or F in position 7) pre- 
cede any data field specifications (D or S in position 7). 
The last set in the sequence specificatons must be an in- 
clude set. 

Omit sets identify the input records to be omitted in the 
sort. Omit sets are specified by one or more omit/state- 
ments (0 in position 6) interconnected by AND and OR 
specifications (A or O in position 7). Omit sets have no 
field specifications. 
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Each set is made up of subsets. A subset is the part of a 
set which extends: 

1 . From the beginning of the set up to: 

a. The first OR specificaton, or 

b. The first field specification (include set with 
no ORs), or 

c. The end of the set (omit set with no ORs). 

2. From the beginning of the preceding subset up to: 

a. The next OR specification, or 

b. The first field specification (include set), or 

c. The end of the set (omit set). 

See Figure 6-1 for an example of these requirements. 



Each set begins with an IYES branch. For an include set, 
this branch goes to the code generated for the field specifi- 
cations for this set. For an omit set, this branch goes to 
the beginning of the fixed code + X'33* to set BU1LDQ to 
N, to omit this record, and return to the next sequential 
instruction of Phase 1 (see Fixed Code for Linkage in this 
section for more information on linkage to the calling 
phase). 

Each subset begins with an INO branch and ends with an 
unconditional branch to the IYES beginning the set. INO 
branches to the beginning of the next set or subset. The 
instructions between the two branch statements are a sub- 
set consisting of the code segments for identifying an input 
record. Figure 6-2 shows the general structure of a set and 
its subsets. 



Include 
Set 



Omit 
Set 

Include 
Set 

Omit 
Set 



Include 
Set 



Include 
Set 



HSORTR 

IbC } 

IAC ( 

IOC 

IOC } 

IAC > 

IAC ) 

FNC J 

FIMC > 

FDC \ 



i OI6C ) 
} OAC ) 

} FNC f 



obc 
ooc 

iWbWti 

FNC 
FNC 

HSORTR 




Header statement 

Subset meeting requirement la 

Subset meeting requirement 2a 

Subset meeting requirement 2b 

Field specifications 

Subset meeting requirement 1c 

Subset meeting requirement 1b 

Subset meeting requirement 1a 
Subset meeting requirement 2c 



Subset meeting requirement 1b 
(include-all) 



Header statement 



Subset meeting requirement 1b 
(implied include-all] 



Figure 6-1. Example of Subset Requirements 







IYESA B SETN/BCWA 


INOI B IN02 




Subset 


-1 




1 


- Code Segments 
B IYES 




IN02 B IN03 




Subset 
2 


— 1 Code Segments 


Set 
A 




— J 

B IYES 




IN03 B lYESB 




Subset 
3 


— 1 Code Segments 
B IYES 




BCWA - (Include set 






— only) 






Field Code Segments 






B SETY 




Set 

B 




lYESB B SETN/BCWB 



Figure 6-2. Set and Subset Structure 
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The last unconditional branch by a subset to IYES in an 
include set is followed by the code to build the work rec- 
ord. Generated code builds the control word of the work 
record. The length of the control word is specified by the 
longest total control field of any record type entry (posi- 
tions 13-17) on the header statement. The control word is 
built from left to right in the order in which the control 
fields are specified on the Sequence Specificatons sheet 
(Figure 6-3). If the fields for the record are less than the 
total length, the control word will be padded to the right 
with hexadecimal zeros. Prior to calling the Select/Build 
routine, Phase I initializes the control word to hexadecimal 
zeros. 



FLD1 



FLD2 FLD3 



Si 



FLDN 



Figure 6-3. Building the Control Word 



The type of job specified determines the type of informa- 
tion that follows the control word. For SORTA jobs, code 
is generated to place the 3-byte relative record number 
(located in IREC#T in COMMON) after the control word. 
For SORTR jobs, code is generated to place the data fields 
after the control word. The data fields are placed left to 
right in the order in which they are specified on the 
Sequence Specifications sheet. If the data field length for 
an include set is less than the total length, the data field 
will be padded to the right with X 4 40*s. Prior to calling 
the Select/Build routine, Phase I initializes the data area 
to XWs. 



A description of each code segment follows. The following 
abbreviations are used in the instructions which make up 
the code segments: 

Abbreviation Meaning 

Fl To location (positions 13-16) -1 of 

Factor 1 (positions 9-1 6) or to location 
(positions 13-16) of control field 
statement 

F2 To location (positions 24-27) -1 of 

Factor 2 (positions 20-39) 

L Length of Factor 1 (positions 9- 1 6) or 

of the location (positions 9-16) field 

CONSAT Address of the Factor 2 (positions 

20-39) constant 

IWA Work area = (first byte of the 

Select/Build routine) 

CWD Control word displacement from 

XR2 (XR2 contains the address of 
the current place in the control word) 

ENFORC One byte past force sequence of 

instructions 

BCW Build Control Word, the address of 

the code segments which build 
the control word 



After the work record is built, the code generated for an 
include set ends with a branch to the beginning of the fixed 
code + X*2D* to set BUILDQ to Y and return to the next 
sequential instruction of Phase I (see Fixed Code for 
Linkage in this section for more information on linkage 
to the calling phase). 

The last set of generated code is followed by an uncondi- 
tional branch to the beginning of the fixed code + X'33* to 
set BUILDQ to N and return to the next sequential instruc- 
tion of Phase I. Thus, all records which are not explicitly 
included by meeting the requirements of any preceding 
generated code are omitted. 



Record Identification Code Segments < Record Type 
Statements) 



Beginning of a Set (Code Segment 1) 



IYES 



BCW/Fixed Code +X'33' (OMIT) 



The code segments which identify the record type branch 
to this code segment if the record does meet the specifica- 
tions. The branch IYES takes depends on the record type. 
For an omit record, IYES branches to the instructions in 
the fixed code which set a switch informing the program 
that the current record should be omitted (beginning of 
the fixed code + X*330. For an include record, IYES 
branches to the code segments which build the control 
word (BCW). 
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Beginning of a Subset (Code Segment 1A) 



2, NE relationship specified 



INO 



NEXTSET 



The code segments which identify the record type branch 
to this code segment if the record does not meet the speci- 
fications. INO then branches to the first instruction follow- 
ing the INO branch of the next subset including the first 
subset of a new set (NEXTSET). The last subset is an 
implied omit. It branches to the instructions in the fixed 
code which set a switch informing the program that the 
current record should be omitted. 



Current Statement 
(col 7) 

A/0/0 
A 

w 



Next Statement 
(col 7) 

A 

Wo 

WO 



Branch 

To 

INO 
INO 

*+ll 



All other zone tests use only the first two instructions of 
the code segment because a test for special characters is not 
necessary. 



Forced Field — Zone (Part 1) (Code Segment 2) 





MNN 


IS2021+1,F1 


Set numeric equal 


IS2021 


CLI 


F1,X'00' 


Are zones equal 




BE 


IS2151 


Branch into MACRO 15 




CLI 


F1,C 


Special zone test 



If an F is specified in position 7 and a Z is specified in 
position 8, this code segment tests the zone portion of the 
position specified by the location field to the zone portion 
of the record character specified in column 17. 

The zone test for a C, D, and F zone or an &, minus (-), 
and a blank character uses the entire code segment. For 
all other zone tests, only the first two instructions are 
used because a test for special characters is not necessary. 



Zone (Code Segment 2) 



IS2021 



If a Z is specified in position 8, this code segment tests the 
relationship of the zone portion of the positions specified 
by Factor 1 to the zone portion ot the constant specified. 

The zone test for a C, D, and F zone or an &, minus (-), 
and a blank character uses the entire code segment. The 
branch that the BE instruction takes is determined as fol- 
lows: 

1 . EQ relationship specified 

Current Statement Next Statement Branch 
(col 7) (col 7) To 



MNN 


IS2021+1,F1 


Set numeric equal 


CLI 


F1,X'00' 


Are zones equal 


BE 


IYES/INO/"+11 




CLI 


F1,C 


Special zone test 



A/ W 
A/ WO 



A 

w 



*+ll 

IYES 



Control Word Displacement (Code Segment 3) 

A L[,XR1) ( XR2 

At the start of the Select/Build routine, XR2 points to the 
control word. The control word length -1 is added to XR2. 



Force Sequence — Leading Instruction (Code Segment 4) 



MVl 



CWD(,XR2>,XTF' 



If an F is specified in position 7 and the first force line does 
not have a continuation punch, this code segment is gener- 
ated as a forced sequence test is entered. It moves the 
highest possible value into the control word build area for 
an ascending sequence (X'FF') and the lowest possible value 
for a descending sequence (X*00'). If none of the record 
characters are found, this default value is used in the con- 
trol word. 



Digit - Field to Field (Code Segment 5) 



ZA2 


IWA+L-1(L),F2(L) 


Move Factor 2, 
clearing zones. 


SBN 


IWA+L-1,X'F0' 


Set last zone 
positive. 


ZAZ 


IWA+L-1+L(L),F1(L) 


Move Factor 1 , 
clearing zones. 


SBN 


IWA+L-1+L,X'F0' 


Set last zone 
positive. 


CLC 


IWA+L-1+L(L),IWA+L-1 





If a D is specified in position 8 and an F is specified in 
position 19, this code segment tests the relationship of the 
digit portion of the positions specified by Factor 1 to the 
digit portion of the positions specified by Factor 2. 
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Digit - Field to Constant (Code Segment 6) 



Summary Specification — Character or Packed (Code 
Segment 10A) 



ZAZ 


IWA+L-1(L),F1(L) 


Move Factor 1 , 






SBN 


IWA+L-1,X'F0' 


clearing zones. 
Set last zone 


MVI 


CWD(,XR2).# 


CLC 


IWA+L-1[L),C0NSAT 


positive. 


MVC 
MVC 


CWD-1 (L,XR2),CWD(,XR2) 
CWD(L,XR2),F1 



If a D is specified in position 8 and a C is specified in 
position 19, this code segment tests the relationship of the 
digit portion of the positions specified by Factor 1 to the 
digit portion of the constant specified. 



Character — Field to Constant (Code Segment 7) 
CLC F1{L),CONSAT 

[f a C is specified in position 8 and a C is specified in posi- 
tion 19, this code segment tests the relationship of the chap 
acters in the positions specified by Factor 1 to the constant 
specified. 

Character - Field to Field (Code Segment 8) 

CLC F1(L),F2 

If a C is specified in position 8 and an F is specified in 
position 19, this code segment tests the relationship of the 
characters in the positions specified by Factor 1 to the char- 
acters in the positions specified by Factor 2, 

Jump Over Constant (Code Segment 9) 
J CONSAT+1 

CONS AT is the low-order byte of the constant. Constants 
are placed in the program as they are encountered in the 
specifications. This code segment jumps the length of the 
constant to continue with the rest of the program. 



Normal Control or Data Field — Character or Packed 
(Code Segment 10) 



MVC 



CWD{L,XR2),F1 



If an N, D, or S is specified in position 7 and a C or P is 
specified in position 8, this code segment moves the char- 
acters of the positions specified by the location field to 
the work record build area. 



This code segment is used if: FS is specified in positions 
6-7, P is specified in position 8, and a valid entry is made 
in positions 20, 21, and 22 of the summary specifications. 

The first instruction is used to initialize a field in the work 
record. If Character or Packed is specified, X*00' is propa- 
gated through the field. Then the code segment moves the 
field specified from the input record. 



Normal Control or Data Field — Zone (Code Segment 1 1) 



MZZ 


CWD(,XR2),F1 




SBF 


CWD(,XR2},X'0F' 


Set numeric 
portion off. 



If an N, D, or S is specified in position 7, and a Z is speci- 
fied in position 8, this code segment moves the zone por- 
tion of the position specified by the location field to the 
work record build area. 



Opposite Field — Digit (Code Segment 12) 



MVI 


CWD(,XR2),X'F9' 


MVC 


CWD-1 <L,XR2),CWD(,XR2> 


MZZ 


CWD( f XR2),F1 


SZ 


CWD{L,XR2),F1(L) 


SBN 


CWD{,XR2),X J F0' 



If an O is specified in position 7 and a D is specified in 
position 8, this code segment moves 9's into the control 
word area with the same sign as the location fields. The 
digit portion of the information specified in the location 
field is then subtracted from the 9*s so that the opposite 
digit remains in the control word build area. 
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Forced Field - Digit (Part 1) (Code Segment 13) 

MZZ IS2131+1,F1 

IS2131 CLI F1,XW 

If an F is specified in position 7 and a D is specified in 
position 8, this code segment compares the digit portion of 
the position' specified by the location field to the digit 
portion of the record character specified in position 17. 

Forced Field - Character (Part 1) (Code Segment 14) 



CLI 



F1.XW 



Is digit of input 
equal? 



If an F is specified in position 7 and a C is specified in 
position 8, this code segment compares the character of the 
position specified by the location field to the record char- 
acter specified in position 17. 



This code segment branches to the Fixed Code for Linkage 
at either of two times: 

• After the control word is built, 

• Immediately after the record is identified, if no control 
fields are specified. 



Normal Control or Data Field — Digit (Code Segment 18) 



ZAZ 



SBN 



CWD(L,XR2),F1(L) 
CWD( r XR2},X'F0' 



Move Factor 1 , 
clearing zones. 
Set last zone 
positive. 



If an N is specified in position 7 and a D is specified in pos- 
ition 8, or if a D or S is specified in position 7 and a D or 
U is specified in position 8, this code segment moves the 
digit portion of the position specified by the location field 
to the work record build area. 



Forced Field - Character, Zone, Digit (Part 2) (Code 
Segment 15) 



Summary Specification - Unpacked or Digit (Code 
Segment 18A) 



JNE 


NEXT15 


Doesn't meet 






IS2151 MVI 


CWD{,XR2) f XW 


test, next try. 
Meets test, move 


MVI 


CWD(,XR2),X'F0' 






in substitute 


MVC 


CWD-1 (L f XR2),CWD(,XR2) 






character. 






B 


ENFORC 


Leave series of 
force sequence 


ZAZ 


CWD{L,XR2),FKL) 






tests. 


5BN 


CWD{,XR2),X'F0' 


NEXT15 EQU 


• 









If the contents of specified position (digit portion, zone 
portion, or character of a forced field) does not compare 
equal, a jump is taken, and the next code segment is exe- 
cuted. If the information does compare equal, the substi- 
tute character specified in position 18 is moved to the con- 
trol word build area. 



Force-Ail (Code Segment 16) 



This code segment is used if: FS is specified in positions 
6-7, U or D is specified in position 8, and a valid entry is 
made in positions 20-22 of the summary specifications. 

The first two instructions propagate X'FO* throughout the 
work record build area. Then the digit portion of the 
position specified by the location field is moved to the 
work record build area. The last instruction is used only 
for digit specifications. 



MVI 



CWD{.XR2) f X'0O' 



Unconditional 
move of 
substitute 
character. 



If a force-all line is indicated, this code segment moves the 
substitute characters specified in position 18 to the control 
word build area without any testing. 



Branch to fnciude/Omlt (Code Segment 17) 

B AAX100 



Branch to include 
return to Phase I. 



Branch on Condition Instruction (Code Segment 19) 



BC 



IYES/INO 



This code segment follows each record identification test 
and is used to determine if a particular condition is met. 
The exact instruction depends on the record specifications. 
Figure 64 shows the resulting branch instruction and 
where it will branch. For example, if an is specified in 
position 7 of the current specification card, and an is 
specified in position 7 and an NE relationship is specified 
in positions 17-18 of the next specification statement a 
BNE to IYES is generated. 
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Relationship 


Current Statement 


*/0 


*/0 


A 


A/*/0 


Specified 
(Positions 17-181 












Next Statement 


O 


A 


A/O 


No more statements 












for this record type 


EQ 




BE to 1 YES 


BNEtoINO 


NE 




BNE to IYES 


BE to INO 


LT 




BL to IYES 


BNLtoINO 


GT 




BH to IYES 


BNHtoJNO 


LE 




BIMHtolYES 


BH to INO 


GE 




BNLto IYES 


BLto INO 



Note: The entries given for Current Statement and Next Statement refer to the entries 
for position 7 of the current specifications and the next specifications as follows: 

16 = blank 
= OR 
A = AND 

Figure 6-4. Table of Branch on Condition Instructions 



Branch Instruction (Code Segment 19) 



Signed Decimal Integer- UNPACKED (Code Segment 22) 



B IYES/INO 

This code segment occurs at the end of a subset and is used 
if none of the tests in the subset are met. The branch taken 
is dependent on the previous BC instruction. If the BC in- 
struction branches to IYES, the B instruction branches to 
INO ; likewise, if the BD instruction branches to INO, the 
B instruction branches to IYES. 



Beginning of Force Lines (Code Segment 20} 



J 
B 
NEXT EQU 



NEXT 

ENFORC 



This code segment is used to leave the forced sequence 
tests. ENFORC is the first instruction past the current 
entries of forced sequence tests. 

Signed Decimal Integer — PACKED (Code Segment 21) 

SLC [WA+33(34),lWA+33 Clear the work 



MVC IWA+16{L),F1 

MVC IWA+33(L),F2 

B VECTPK 



Move Factor 1 

Move Factor 2 

Branch to the 
Pack-I nctude/ 
Omft routine 



This code segment is used if P is specified in position 8. 
This code moves the information in Factor ] and Factor 2 
to the work area. Then it branches to the Pack-Include/ 
Omit routine. (See Fixed Code for Flack-Include /Omit and 
Pack-Field Routines. ) 



ZAZ IWA+16(L),F1 Move Factor 1 

ZAZ IWA - 33 (L), F2 Move Factor 2 

SZ I WA + 1 6 { L) , I WA + 33 ( L) Set condition register 



This code segment is used if U is specified in position 8. 
This code segment sets up Factor 1 and Factor 2 in the work 
areas, and then performs a Subtract Zone to set the condi- 
tion register. 



Move Input Record (Code Segment 23) 



ST 

MVC 

J 
IS4231 DC 
IS5231 DC 

DC 
IS7231 LA 

B 
IS9231 LA 



IS9231+3.XR2 

IS5231(2),LIREC@(,XR1) 

IS7231 

AL2IIREC®) 

AL2(#) 

AL20RECL) 

IS4231,XR2 

MOVER(^CRI) 

#,XR2 



This code segment is used when data is to be read for the 
specified alternate collating sequence. This code segment 
moves the input record of data to a fixed area so the data 
can be used. 
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Opposite Field — Character, Zone (Code Segment 24) 



MVI 
MVC 
SLC 
SBF 



CWD| f XR2|,X , FF' 

CWD-1<L,XR2hCWDI,XR2) 

CWD(,XR2l,F1 

CWD{,XR2) f X'0F' Set numeric to 
zero 



If an is specified in position 7 and a C or Z is specified 
in position 8, this code segment moves F*s into the control 
word area. The character specified in the location field is 
then subtracted from the F's so that the opposite character 
remains in the control word build area. The last instruction 
in this code segment used only if a Z is specified in position 
8, sets off the digit portion of the opposite character. 



Overflow Indicator Field (Code Segment 25) 

MVI CWD| f XR2),C'r 

If a D or S is specified in position 7 and a V is specified in 
position 8, this code segment moves the character specified 
in the substitute character position (Posit. 18) of the cur- 
rent statement to the next byte in the work record. 



Data Field - Unpacked Decimal (Code Segment 26) 

ZAZ CWD(L ( XR2),F1{L) 

If a D or S is in position 7 and a U is in position 8, this 
code segment zero and adds (zero fills) the indicated 
signed unpacked decimal number placing hexadecimal F's 
in the zones of each position except the units position 
(sign). 

Unpacked Field Specifications (Code Segment 27) 



ZAZ 


CWD{L,XR2),F1{L) 


JNL 


NEXT27 


MVC 


W1IU,CWD(,XR2) 


MVC 


CWD<L,XR2}.FFFFS 


SLC 


CWD(L,XR2>,W1 


NEXT27 EQU 


* 



If the specification is a field specification and column 8 
contains a U, the code segment shown is used for normal 
sequence. If opposite sequence is desired, the JNL is 
changed to JL. 



Packed Field Specifications (Code Segment 28) 



MVC 


W1{L).F1A 


B 


PACKCW 


DC 


ILVO' 


MVC 


CWD(L,XR2I.W1-1 



If the specification is a field specification and column 8 
contains a P, the code segment shown is used. The B 
PACKCW entry passes control to the Pack-Field routine 
placed in storage by SDSCC. 



FIXED CODE FOR PACK-INCLUDE/OMIT AND 
PACK-FIELD ROUTINES 

The fixed code for the Pack-Include/Omit and Pack-Field 
routines immediately follows the generated code segments 
if a Pack-Include/Omit or Pack-Field numeric field has 
been specified on a record type statement. See Signed 
Decimal Integer (Code Segment 21 or 22) for the branch 
to this code. 

The Pack-Include/Omit routine compares factor 1 to factor 
2 and sets the program status register (PSR) before exiting. 
Factor 1 and Factor 2 are moved into a 17-byte field padded 
to the left with zeroes. 

For packed data, the sign of a negative field is changed to 
positive. Positive fields have a 1 placed in the leftmost 
byte in order to force any positive field larger than any con- 
verted negative field. The two fields are then logically 
compared. If the result of the compare is high and Factor 
1 is negative, the PSR is loaded with a low condition. If 
the result of the compare is low and Factor 2 is negative, 
the PSR is loaded with a high condition. The PRS is 
reversed in these cases because both factors axe negative and 
the smaller negative number has the larger absolute value. 
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The instructions which make up the fixed code for the 
Pack-Include/Omit and Pack-Field routines follow. 

Pack-Include/Omit Routine 



PACBGN 


EQU 


* 




ST 


CC500+3.ARR 




TBN 


IWA+16 f X'0D* 




TBF 


IWA+16,X'02' 




JT 


CC501 




TBN 


IWA+16,X'0B' 




TBF 


IWA+I^XW 




JT 


CC501 




SBN 


IWA+OO.X'OV 


CC501 


EQU 


• 




SBN 


IAW*16,X'0F' 




TBN 


IWA+33,X'0D' 




TBF 


IWA+33,X'02' 




JT 


CC502 




TBN 


IWA+33,X'0B' 




TBF 


IWA+33,X'04' 




JT 


CC502 




SBN 


IWA+17,X J 01' 


CC502 


EQU 


# 




SBN 


IWA+33,X'0F' 




CLC 


IWA+16{17),IWA+33 




JE 


CC500 



JH 



CC11 



CC10 


TBF 


IWA+17,X'01' 




JF 


CC31 


CC10A 


L 


FOUR#,4 




J 


CC500 


CC11 


TBF 


#+oo,x j or 




JF 


CC500 


CC31 


L 


I0002(,XR1),4 


CC500 


B 


# 


PACEND 


EQU 


« 



This is the Pack-Include/Omit routine 
Store return address 
Is Factor 1 

* negative CD') 
Yes 

Is factor 1 

* negative ('B') 
Yes 

Factor 1 is positive so leftmost 
byte is set to 1 



Set sign to positive 
1 5 Factor 2 

* negative CD') 
Yes 

Is Factor 1 

* negative ('B') 
Yes 

Factor 2 is positive so leftmost 
byte is set to 1 



Set sign to positive 

Compare Factor 1 to Factor 2 

Factor 1 equals Factor 2 or PSR 

stays equal 

Factor 1 is greater than Factor 2 

Is Factor 2 positive 
Yes so PSR stays low 

No so PSR loaded with high condition 



1 5 Factor 1 positive 
Yes so PSR stays high 

No so PSR loaded with low condition 

Return 
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Pack-Field Routine 



WORK1 


EQU 


16 


W0RK2 


EQU 


33 


CWP 


EQU 


« 


REL0C1 


ST 


GETL+5-CWP,ARR 


GETL 


MVC 


l-cwp(i),# 




A 


10001 ,{,XR1),ARR 


REL0C2 


ST 


SAVE1+3-CWP.XR1 




LA 


CWP-CWP,XR1 




USING 


CWP.XR1 


RELOC3 


LA 


#. xfn 




ST 


RETURN+3(,XR1}.ARR 




ST 


SAVE2+3(,XR1),XR2 




MVC 


CHK0+1(1,XR1),L(,XR1) 


PKFLD1 


SLC 


WORK2<8},WORK2 


PKFLD2 


MNN 


W0RK2,W0RK1 


CHKO 


CLC 


W0RK2<#,W0RK1 




JNE 


OPNORM 


PKFLD3 


SBN 


WORK1 r X'0F' 


OPNORM 


TBN 


L(,XR1),X'80' 




SBF 


L(,XR1),XW 




JF 


NORMAL 



This is the Pack- Field routine 

Store A(LEN) in GETL+5 

Move length into 'L' 

ARR is now true ARR 

SaveXRI 

XR1 - relative location 

XR1 * A(where pack-field loaded] 

Store ARR in return 

SaveXR2 

Move LEfM-1 into compare instr. 

ZerooutWORK2IW2> 

Move sign of W1 into W2 

W1 =0? 

No, continue 

Yes, set sign in W1 to positive 

Opposite field specified? 

Set opposite bit off 

Normal specified— set jumps 



OPPOSITE FIELD SPECIFIED 

MVI ALTER+1,(,XR1>,X'80' 

MVt NEG+2(,XR1),23 

J BEGIN 



ALTER jumps to 
•mirror — opposite 



#* 


NORMAL 


FIELD SPECIFIED 




NORMAL 


MVI 


ALTER+1(,XR1),X'87' 


ALTER jumps to 




MVI 


NEG+2(,XR1),6 


* go — normal 


BEGIN 


MVC 


SET2+3(2 r XR1) f OW1UR1) 


Move low-order byte <§> of W1 




SLC 


SET2+3(2,XR1),L(,XR1) 


Now SET2+3 points one byte before 




SLC 


SET2+3(2,XR1l,ONE(,XR1) 


* the number in WORK1 


SET2 


LA 


#,XR2 


XR2 « A(byte before high-order 


* 






*of WORK1 (WD) 




MVI 


0(,XR2),0 


The point specified above = 


PKFLD4 


MNN 


0<,XR2),WROK1 


Put sign from W1 into the byte 
"to the left of W1 




CLI 


0(,XR2),X'OO' 


Standard neg. number ? 




JE 


NEG 


Yes, jump 




CLI 


0<,XR2),X'0B' 


Non-standard neg. number ? 




JNE 


POS 


No, positive — jump 




MVI 


0|.XR2),X'0D' 


Standardize neg. number 


NEG 


J 


# 


Mirror/go 


POS 


MVI 


0(,XR2),X'0F' 


Set units position to X'OF' 


ALTER 


JC 


GO,# 


Mirror/go 


MIRROR 


MVC 


WORK2(9),WORK1 


W2 = W1 


PKFLD6 


MVC 


WORK1(9),FFFS(,XR1] 


W1 =X J FF' 


PKFLD7 


SLC 


WORK1{9),WORK2 


Complement 


GO 


SBN 


WORKI^'OF' 


Set units digit to 'F' 


SHIFT 


ALC 


WORKK9),WORK1 


Shift number to left half byte 


PKFLD8 


TBN 


WORK1,X'08' 


Shift completed ? 




BT 


SH1FTl,XR1) 


No, continue 




DROP 


XR1 




SAVE1 


LA 


#,XR1 


Yes, restore XR1 


SAVE2 


LA 


#.XR2 


RestorBXR2 


RETURN 


B 


# 


Return to caller - $DSCF 


L 


DC 


XL2'0000' 


2-byte length so that when XR2 


m 






* is set up, it is correct 


FFFS 


DC 


9XLVFF' 


9-byte constant of X'FF' 


@W1 


DC 


AL2<WROK1) 


@W1 = Atworkarea 1) 


CNE 


DC 


XL2'0001' 


2-byte constant of 1 


PAKEND 


EQU 


* 
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c 



START 



) 



c 



Identify the 
record type 



Generate work 

record 



Set switch to 
Y for include 
record 



EXIT 




Set switch to N 
for omit record 



; 



To: Phase 1A 
Phase 1B 
Phase 1X 



Figure 6-5. Select/Build Routine 
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( START J 



Get sequence 
specification 



MACRO #19 
B 1 YES/I NO 



End of file 



No 



Yes 



MACRO #19 
BC IYES/INO 



r/o 



No 



Field 



Yes 



Yes 



'reviou 

^f^statement end of 
include 
set 



OH 



No 



Error message 
SD202 



B -Q 



Yes 



No 



Yes 



No 



C exit ) 

To: Include/Omit 
(Figure 6-7) 



MACRO #1 
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MACRO #1A 
INOB 



( '"° 1 
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^y ^ ^ Previous"*"*-^ 

^"^^v^ Header^*"""^ 
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Implied 
Include-All 




^^-^ Inc 


No 

vious^s,^ 
lude^^x^ 
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Nq_ 


H- 


1 

Previous \. 
v Omit ^-^ 

j No j 
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B 






Last type 
Afield 














1 f 


Ye,/- 








<s^ FN/FO^ S \ 


BX,T ) 






V 




J No 
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To: 


Field Normal/Opposite 
(Figure 6-8) 


<*. FF > 


To: 

C 

Fo: 


EXIT 




[No 


Field Force 
(Figure 6-9] 




FD/FS 




EXIT J 








Field Data/Summary 
(Figure 6-10) 



Figure 6-6. Select/Build Code Segment Selection 
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i 


MACRO #22 
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To: Select/Build Code Segment Selection 
(Figure 6-6) 



Figure 6-7. Include/Omit 
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f ENTRY J 






MACRO #10 



MACRO #11 *^H 




MACRO #18 



MACRO 
#28 



MACRO 

#9 




MACRO #27 




Position 7 
O 




MACRO #12 




MACRO #24 




To: Select/Build Code Segment Selection 
(Figure 6-6) 



Figuie 6-8. Field Normal/Opposite 
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f ENTRY J 



Figure 6-9. Field Force 




MACRO #4 



MACRO #15 




To: Select/Build Code Segment Selection 
(Figure 6-6) 
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MACRO # 10A 







MACRO # 18A 



n 





MACRO # 18A 



h 




To: Select/Build Code Segment Selection 
(Figure 6-6) 



Figure 6-10. Field Data/Summary 
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Appendix A. Diagnostic Aids 



This section describes the diagnostic aids built into the Disk 
Sort programs. The diagnostic aids consist of two dump 
routines. 



DUMP ROUTINES 

The first dump routine is a dynamic dump of COMMON 
(O.SDSSA routine). This routine should be used when the 
user is having problems with the Disk Sort program. To use 
O.SDSSA, enter DEBUG on the header statement starting 
in position 20. This causes O.SDSSE to be loaded at the 
end of each phase of the Disk Sort program. O.SDSSE 
determines if there is enough storage available to load 
O.SDSSA. If there is, O.SDSSE loads O.SDSSA and the 
dump is taken. After each dump, a program halt (of '27' 
on Model 10 Disk System, Model 12, and Model 15; or 
'CD23' for Model 6) is displayed. At this time, a further 
storage dump or a disk dump may be taken. If no dumps 
are requested, O.SDSSA returns control to 0.$DS$E which 
returns control to the calling routine. 

The second dump routine is a terminal dump of COMMON 
(0.$DS$L routine) and is available on the Model 6 and 
Model 1 Disk System only. The routine can be used when 
a 2H program halt (on Model 10 Disk System) or '0025' 
(for Model 6) is displayed or when the job is terminated due 
to a processor check. In either case, record the value of 
the IAR, ARR, XR1, and XR2 and then take a storage 
dump. 

Note: In a DPF environment, ensure that the value of the 
IAR is within the limits of the program level assigned to 
Disk Sort before taking a terminal dump of COMMON. 

Next, press SYSTEM RESET. Then initiate 0.$DS$L by 
performing a console branch to the O.SDSORT load address 
plus X l E5\ O.&DSSL is loaded into storage immediately 
after COMMON. O.SDSSL dumps COMMON and then 
calls the End-Of-Job Transient routine to cancel the job. 

A detailed description of these routines follows. 
Dynamic Dump Loader {0.$DS$E) 



FUNCTION: 

- Computes available storage. 

- Determines if there is enough available storage to 
load O.SDSSA (Disk Sort COMMON dump routine). 

- Loads O.SDSSA if there is enough available storage. 

- Prints a message and halts if there is not enough 
available storage. 

INPUT: 

- Length of calling routine. 

- Length of alternate collating sequence. 

- Length of O.SDSSA. 

- Storage size for Disk Sort. 
OUTPUT: 

- Printed message if there is not enough storage 
available to load O.SDSSA. 

- Printed title of dump if there is enough storage 
available to load O.SDSSA. 

ROUTINES USED: O.SDSSA, O.SDSSD (entries for 
Phase 0D), O.SDSSX (entries for Phases I, II, 
and III) 

EXIT: 

- O.SDSSA if enough storage available. 

- Calling routine if not enough storage available. 

- Calling routine if control passed from O.SDSSA 



Print COMMON-Dynamic Request (0.$DS$AJ 

ENTRY: From O.SDSSE 

STORAGE MAP: See the storage map of the appropriate 

phase. 
CHART: FB 
FUNCTION: Prints Disk Sort's COMMON area with 

labels after Phases 0A, 0B, 0D, and all passes. 
INPUT: 

- Address of COMMON in XR1 . 

- COMTAB table (see the description of this table 
following this routine description). 

OUTPUT: Printed output of the elements of COMMON 

along with their corresponding labels. 
ROUTINES USED: SDSZC , SDSZE, SDSZF 
EXIT: O.SDSSE 



ENTRY: From: O.SDSORT, O.SDSBA, O.SDSDB, 

O.SDSGA, O.SDS1A, O.SDS1B, O.SDS1X, O.SDS2A, 
O.SDS3A, SDSSA or O.SDSSA 

STORAGE MAP: See the storage map of the appropriate 
phase. 

CHART: FA 



COMTAB Table 

The COMTAB table is used by O.SDSSA to print the 
elements in COMMON. The table contains all the 
COMMON entries used by all phases. O.SDSSC contains 
additional COMMON entries used by Phase 0C; O.SDSSD 
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contains additional COMMON entries used by Phase 0D; 
O.SDSSX contains additional COMMON entries used 
by Phases I, II, and III. Each 9-byte entry in the table 
contains: 

Contents 



Byte 

0-5 
6 



Character name of element in COMMON 

Hexadecimal displacement in COMMON 

Type of output desired 

X'00' = Binary 

X'0T = Decimal 

X'02* = Hexadecimal 

X'FF = Character 

Length of element in COMMON 



Print COMMON - Terminal Request (0.$DS$L) - Model 
6 and Model 10 Disk System only 

ENTRY: From user response on the console: a branch to 

the O.SDSORT load address + X'E5\ 
CHART: FC 
FUNCTION: 

- Prints Disk Sort's COMMON area with labels. 

- Terminates the job. 
INPUT: 

- Address of COMMON in XR I. 

- COMTAB table (see the description of this table 
following the routine description of O.SDSSA). 

OUTPUT: Printed output of the elements of COMMON 
along with their corresponding EBCDIC labels. 

ROUTINES USED: SDSZC, SDSZE, SDSZF, O.SDSSC 
(entries for Phase 0C), O.SDSSD (entries for 
Phase 0D), O.SDSSX (entries for Phases I, II, 
and III) 

EXIT: EOJ Transient 



BITOHEX Routine (SDSZE! 

ENTRY: From O.SDSSA or 0.$DS$L 

CHART: None 

FUNCTION: 

- Converts 4-bit groups into their equivalent 8-bit 
EBCDIC values by using a look-up table containing 
the EBCDIC forms of the hex digits. 

- Places the 8-bit EBCDIC values into the area 
specified by the using routine. 



INPUT: 

- Address of COMMON in XR1 . 

- Address of a parameter list in XR2. The list 

contains: 

1 . High-order address of the area to be converted. 

2. High-order address of the area where the 
EBCDIC equivalents are to be placed. 

3. Address of a 2 -by te field containing the 
number of bytes to be converted. 

OUTPUT: Converted EBCDIC values located in the 

area specified by the using routine. 
ROUTINES USED: None 
EXIT: 0.$DS$AorO.$DS$L 



BITOBIT Routine (SDSZF) 

ENTRY: FromO.$DS$A or OiDSSL 

CHART: None 

FUNCTION: Converts one byte of storage to printable 

EBCDIC values one bit at a time. 
INPUT: 

- Address of COMMON in XR], 

- Address of a parameter list in XR2. The list 
contains: 

1 . Address of the input byte. 

2. High-order address of the output area. 
OUTPUT: Eight EBCDIC values in the output area 

specified in the parameter list. 
ROUTINES USED: None 
EXIT: O.SDSSA or O.SDSSL 



FORCE EXECUTION PHASE OPTION 

If one execution phase produces incorrect output or errors, 
another execution phase might correct the problems. The 
Force Execution Phase Option allows one execution phase 
to replace another. 

To use this option, first check message SD600 to determine 
the execution phase that may have caused the problem. 
Next, specify a different execution phase in column 35 of 
the Disk Sort Header statement. The possible entries are: 



Entry 

A 
B 
X 



Phase 

1A(0.$DS1A) 
lB(O.SDSlB) 
1X(0.$DS1X) 



If the Force Execution Phase Option can not force the 
execution phase, error message SD39 1 is logged and 
another execution phase should be specified. 
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PHASE II Merge Configu ration -SD694 (Model 12 and 
Model 15) 



On the Model 15 message SD694; 

"SD694 - XX PASSES REMAINING 



NjN^' 



N i= Order of merge to be used in Phase II. 
N2= Number of output buffers to be used during 

Phase II. 
No= Order of merge to be used in Phase III. 

Should you experience problems with a particular 
configuration, you may be able to alter the configuration 
selected by forcing a different Execution Phase algorithm 
(refer to Force Execution Phase Option this section), or by 
varying the partition size for the Disk Sort. 
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»OS«E 

****A1 ********* 

* * 

* ENTRY * 

* 9 
*************** 



*****oi*** ******* 



* SAVE ARR ANO 

* XR2 



***************** 



IE050 V 

*****ci ********** 



c 2? L p JtP 



AV _ 

STO 



Wife' 



• E070 



Dl +. 
.♦ENOUGH *. 
•STORAGE TO *. YES 

LOftD -* 

*. *DSSA .* 



• ELGO V 

*****Ei* ********* 
*SYSLQG * 



1 *LOG MESSAGE* * 

i * * * 

i**************** 



***** 02********** 
•SYSLOG * 

* * 

■>* * PRINT * + 

* * HEADING * * 

* * * * 
***************** 



*E020 V FB/01/A2 

*****£2********** 
*»DSiA * 



* PRINT COMMON * 

* * 
***************** 



*****pl ********** 

* * 

* * 

* RESTORE XR2 * 

* * 

* * 
***************** 



****Gl ********* 
■ * 

1 EXIT * 
* 

*************** 

TD: CALLING ROUTINE 



Chart FA. Dynamic Dump Loader 
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IDS SAO 

* i 

* ENTRY « 

**+*+*****+***+ 



♦*** 

i 
< B4 * 
■ t 

**** 



•****B2* ••••**•*• 



♦PLACE PARAMETER* 
* LIST IN XR2 + 



DONE 



****B5********* 



*****D1 ********** 

♦LOAD TA6LE FCR * 

* EXECUTION *< 

* phases * 

* * 
***************** 



*****£ I*** *** ***• 

* * 

V +LOAD PARAMETER * 

— •LIST FOR PHASE *<- 

* OC • 

* * 

****** 9***9* ***** 



*****•**■ 

**** 




* * 




* C2 *-> 




* • 




**** V 


START .*. 


C2 *. 


.* LAST *. 


••ELEMENT OF *. NO 


♦ . CURRENT .*— 


♦ . LOAD .* 


♦ . .* 


*. .* 


. ' YES 


*+** 




♦ * 




♦ 02 *-> 




* * 




**♦♦ V 


.*. 


02 «. 


p+ *. 


NO .* *. 


*. GENERATION .* 


*. PHASE .* 


*. .* 


*. • * 


* YES 



.* LAST *. 


YFS 


• 


+ 


•. ELEMENT OF . 


* 


>* 


EXIT * 


*. COMMON .* 




A * 


* 


*. .* 




1. "" 




*. .* 






* NO 




TO: DYNAMIC 








* * 


DUMP LOADER 








• B5 ♦ 


FA/01/E2 








+ * 










**** 





-->* a* * 



** 9 9*^1, ********** 

• * 

• PLACE ELEMENT * 

• tS BE PRINTED * 

• IN OUTPUT APFA * 

• * 

***************** 



E2 



NAME IN 
CHARACTER 
, FORMAT 



E4 



CHAR 

*****D 5 ********** 

YES * PLACE STORAGE * 

► > + LOCATION IN ♦- 

* VALUE * 

* * 
***************** 



PHASE • . 
OC 



YES 



DEC I 

*****F3* 



NO .* PHASE •. 


— *. QD .» 


| *. -• 


*. .* 


V *. .* 


***♦ * YES 


* 




B5 * 




* 




**** 




V 


*****QZ********** 


* * 


♦LOAD PARAMETER * 


•LIST FOR PHASE * 


• OD * 


• 


• 



• PLACE ELEMENT 

• IN WORK AREA 



***************** 



****«£ 3********** 



CONVERT TO 
ZONED OECIMAL 



***************** 



DECIMAL 
FORMAT 



BINARY 

*****£ 5**** ****** 

* PLACE LENGTH * 

* AND DISPLACE- * 
>♦ MENT IN BL1ST * 

•PARAMETER LIST • 

* • 
***************** 



*****?;* ********* 



•CCNVERT BtTS TO* 
* EBCDIC * 



***************** 



HEX V 

*****£ t*** ******* 

* PLACE LENGTH • 

* ANO DISPLACE- • 
♦MENT OF ELEMENT* 

* IN PARAMETER * 

* TABLE * 



****H2**** ****** 

* 

* 

RESET XR2 * 

* 
**************** 

I**** 
+ * 

->♦ C2 * 

* • 

**** 



*****Ht ********** 

•CONVERT NAME BY* 
•4-BIT GROUPS TO* 

♦ EBCOIC * 

* • 
***************** 



PRINT 

*****j 4 ********** 
•SYSLOG_ __* 

• * PRINT • * 

• * ELEMENT • • 

• • * * 
***************** 



*****K< ********** 



OBTAIN NEXT 
ELEMENT 



***************** 



► D2 i 
* i 

**** 



Chart FB. Print COMMON- Dynamic Request 
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**•• 

* * 

* A4 • 

* • 
*•#* 



IDSiLO 

**** A 2********* 

* ■ 
■ ENTRY ' 

• ' 
*************** 



64 * 

LAST 
:NT 
<HDN 



YES 



»****g2* •**•***•• 
NSYSLOO * 



•SKIP TQ NEW* 
* PAGF * 



*W**Q4 ********* I 



*»***£]********** 

•SYSLOG * 

* * PRINT 

* * MESSAGE * * 

* • * * 
***************** 



NO 



■O 



C2 « 
«DSC 



* 






* 


****B5 ********* 


* 


MOVE NAME TO 
OUTPUT AREA 


* 


*EOJ • 


* 


* 




• 




• 


1 * EXIT • 
1 *************** 


* 




* 










**•* 










* * 










* B5 * 










* * 










***• 




V 








.*. 




CHAR 




CA *. 




*****r 5 *•****•*•• 




.* *. 




• * 




* * 


. YES 


* PLACE ELEMENT * 
>* IN WORK AREA * 


*, 


CHARACTER 


i* 




• . FORMAT .* 




• * 




• . 


.* 




* * 



• YES 






•PUT ADORESS OF • 
• COMMOM IN X«2 * 



***************** 
• *** 



BINARY 
FORMAT 



* E2 *-> 



**** 
START .*. 

E2 ♦. 

.* LAST *. •*•' 

.•ELEMENT OF •. NO • 

*. CURPENT .• >• M 

*. LOAD .* • 



NO 



DECIMAL 
FORMAT 



BINARY 

****•[) r********** 

* PLACE LENGTH * 
, Y6S • AND * 

* ^DISPLACEMENT IN* 

* TABLE • 

* * 
***************** 



;****£5**«****** 



YES 



CONVERT BITS TO 
EBCDIC 





• *■ 




DEC I V 


*****F 1* ********* 


F2 *. 




*****F3********** 


* * 


.* *• 




• • 


•LOAD TABLE POR * 

• EXECUTfriN •<— 


NO .* 


*. 


* PLACE ELEMENT • 

• TN WORK AREA * 


*. GENERATION 


.* 


• PHASES * 


*. PHASE . 


• 


* * 


* * 


•• .* 




* * 


***************** 


*. .* 




***************** 



***•*£ 1 ********** 



V *LOAO PARAMETER 

*L1ST FOR PHASE 

• OC 



*< 



G2 



YES .♦ PHASE 
OC 



t**Q3********l 



NO 



•PARAMETER TABLE* 

• * 

***************** 



*****G4********** 
* • 

•CONVERT NAME BY* 

T GRC 

EBCOI 






H2 



NO .* PHASE *. 
— *. 00 



YES 



**»**j2********** 

* * 
•LOAD PARAMETER • 
•LIST FOR PHASE • 

• DO • 



*****H4 ********** 
•SYSLOG * 

*"*~ PRINT * * 

* • ELEMENT * • 

• * * * 
***************** 

I**** 
• • 
->* E2 • 

* * 
**** 



«****K2* ********* 

* • 

• RESET XR2 *— - 

: I 

***************** v 

*•*• 

* * 

* E2 • 



Chart FC. Print COMMON -Terminal Request 
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Appendix B. Flowcharting Techniques 



CHART NUMBERING 



SYMBOLS 



Flowcharts are identified in this manual in the following 
manner: 

• A unique pair of letters identify a flowchart consisting 
of a single page. 

Example: A A, AB, AC 

• If a flowchart consists of multiple pages, the same pair 
of letters identify each page, but each page has a unique 
number. 

Example: First page, CA-01 

Second page, CA-02 
Third page, CA-03, etc. 

• Each part is assigned two sets of flowchart identifying 
letters. Only after the first set is completely used, that 
is, AA-AZ, is the second set used. 



The flowchart symbols used in the program logic manual 
are: 




Decision 



Processing 



Comment/Annotation 




Off-Page Connector 



CH/PG/BK 



Striped Processing 
(Routine Defined 
in this Manual} 



Input/Output 



C^ 



Entry/Exit 



o 



On-Page Connector 



Library 
(Routine Defined in 
Another Manual) 



The processing, decision, input/output, and comment/ 
annotation blocks are self-explanatory. The other blocks 
need further explanation: 
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Striped Processing Blocks 

The striped processing block indicated entry to a module 
or routine which is flowcharted and/or described in this 
logic manual. 



Example: 



LABEL CH/PG/BK 




CH/PG/BK indicates the flowchart, page, and block identi- 
fication where the module or routine is flowcharted. If it 
is not flowcharted, see the index for the location of the 
description of that routine. 



Library Blocks 

A library block indicates a function or module is document- 
ed in another manual. 



Example: 



LABEL 



NAME 



The NAME of the function/module is listed in the Preface 
of this manual by the name of the manual that contains the 
description of this function /module. 



Entry Block 

The label in the upper left corner, just above the symbol, is 
the entry point in the listing for that part of the program. 



Example: 



DMCSOP 



f ENTRY J 



Exit Block 

This block indicates that control is leaving this chart. 
Example: 



(RETURN ^ 
TO: CALLER J 



If control is being passed to a known function/module, 
which is documented in another manual, a striped exit block 
is used. The manual can be found via the Preface as with 
library blocks. 

Example: 



$spej 



EOJ 



END-OF-JOS 



EXIT TO EOJ 




Connectors 

Off-page connectors reference between different pages of 
the same chart ID. Off-page connectors leaving a page con- 
tain the page number and block number of their destination. 



Example: 



Off-page connectors contain the page and block number of 
their origin. If the entry point referenced by the off-page 
connectors is referenced from more than one origin, all 
origins are given. 

Example: 

02-F4 
03-F4 




02-B2 
03-C4 




03 

F5 



On-page connectors contain the location of a block on the 
same page. On-page connectors always contain the location 
of the destination block. 
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Index 



abbreviations in code segment instructions 6-4 
alternate collating sequence table 5-1 
alternate collating sequence table routine 3-14 

routine modifying the table 3-15 

routine using the table 3-15 
ASCII consecutive put routine 3-43 

automatic work file allocation routine, detailed description 3-1 5 
AVAIL table 5-2 



BAM read/write routine 3-43 

beginning of force lines code segment 6-8 

beginning of a set code segment 6-4 

beginning of a subset code segment 6-5 

BITOBIT routine, detailed description A-2 

BITOHEX routine, detailed description A-2 

branch instruction code segment 6-8 

branch on condition instruction code segment 6-7 

branch on condition instruction table 6-8 

branch to include/omit code segment 6-7 

buffers 

(X$DS9I buffer 5-3 

0.$DS9W buffer 5-4 

phase II 5-4 

phase HI 5-4 

phase 1 A, lB T andlX 5-4 
build control word 6-4 
build work record 6-4 



calculate length mainline routine, detailed description 
calculate length module, detailed description 3-7 
character code segment 

data field 6-6 

forced field (part 1) 6-7 

forced field (part 2) 6-7 

norma! control field 6-6 

opposite field 6-6 
character - field to constant code segment 6-6 
character - field to field code segment 6-6 
charts and flowcharts 

COMMON, field description of 5-7, 5-22 

data management routines 3-43 

dynamic dump loader A-4 

end -of-pass reporter 3-81,3-84 

field data/ summary 6-17 

field force 6-16 

field normal/opposite 6-15 

include/omit 6-14 

input/output field combinations 3-41 

NEXTDB routine (phase 1) 3-87 

phase OC, logic and data flow for 3-10 

phase 1 A 3-46,3-49 
3-53, 3-55 
345 

3-78 
3-61 



3-7 



phase IB 
phase 1L 
phase 1M 
phase IX 
phase 2A 
phase 3 A 
phase 3L 
phase 3S 



3-75, 

3-58, 

3-64 

3-68 

3-67 

3-71 



charts and flowcharts (continued) 

print COMMON 

dynamic request A-5 
terminal request A-6 

replacement selection internal sort routine (O.SDS1S) 

select/build code segment selection 6-1 3 

select/build routine 6-12 

sort execution phases, logic and data flow for 2-4 

sort generation phases, logic and data flow for 2-2 

techniques B-l 

WGETL routine (0.$DS9G) 3-90 

WPUTL routine execution phases 3-40, 3-92, 3-95 
check for work file statement routine, detailed description 
code segment instruction abbreviations 6-4 
code segment move routine, detailed description 3-6 
code segment 1 

beginning of a set 6-4 

beginning of a subset 6-5 
code segment 2 

forced field - zone (part 1) 6-5 

zone 6-5 
code segment 3 6-5 
code segment 4 6-5 
code segment 5 6-5 
code segment 6 6-6 
code segment 7 6-6 
code segment 8 6-6 
code segment 9 6-6 
code segment 10 6-6 
code segment 10 A 6-6 
code segment 1 1 6-6 
code segment 12 6-6 
code segment 1 3 6-7 
code segment 14 6-7 
code segment 15 6-7 
code segment 16 6-7 
code segment 17 6-7 
code segment 18 6-7 
code segment 18A 6^7 
code segment 19 6-7 

branch instruction 6-8 

branch on condition instruction 
code segment 20 6-8 



3-88 



3-2 



6-7 



code segment 21 
code segment 22 
code segment 23 
code segment 24 
code segment 25 
code segment 26 
code segment 27 
code segment 28 



6-8 
6-8 
6-8 
6-9 
6-9 
6-9 
6-9 
6-9 



code segments (see generated code segments) 
combinations of input and output fields 3-41 
COMMON 

communication area (Model 6 and Model 10 Disk 

System) 2-1 
communication region (Models 12 and 15) 2-1 
detailed description (Model 6 and Model 10 Disk 
System) 5-7 
detailed description (Models 1 2 and 1 5) 5-22 
storage map (Model 6 and Model 10 Disk System) 
storage map (Models 12 and 15) 5-20 
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